home *** CD-ROM | disk | FTP | other *** search
/ Compatibles PC Magazine 22 / PC Mag HS 22 CD2.iso / sharewar / dos / almanach / almanach.asm next >
Encoding:
Assembly Source File  |  1991-12-02  |  82.3 KB  |  2,864 lines

  1. almanach      segment
  2.               org 100h
  3.               assume cs:almanach
  4.  
  5. start:        jmp debut
  6.  
  7. ; Variables
  8.  
  9. espace        db " $"
  10.  
  11. dfete         dw ?
  12.  
  13. un            db "01$"
  14. deux          db "02$"
  15. trois         db "03$"
  16. quatre        db "04$"
  17. cinq          db "05$"
  18. six           db "06$"
  19. sept          db "07$"
  20. huit          db "08$"
  21. neuf          db "09$"
  22. zero          db "00$"
  23.  
  24. jour1         db "Lundi $"
  25. jour2         db "Mardi $"
  26. jour3         db "Mercredi $"
  27. jour4         db "Jeudi $"
  28. jour5         db "Vendredi $"
  29. jour6         db "Samedi $"
  30. jour7         db "Dimanche $"
  31.  
  32. m1            db "Janvier $"
  33. m2            db "Février $"
  34. m3            db "Mars $"
  35. m4            db "Avril $"
  36. m5            db "Mai $"
  37. m6            db "Juin $"
  38. m7            db "Juillet $"
  39. m8            db "Août $"
  40. m9            db "Septembre $"
  41. m10           db "Octobre $"
  42. m11           db "Novembre $"
  43. m12           db "Décembre $"
  44.  
  45. m1j1          db "Jour de l'an !$"
  46. m1j2          db "Bonne fête aux Basile !$"
  47. m1j3          db "Bonne fête aux Geneviève !$"
  48. m1j4          db "Bonne fête aux Odilon !$"
  49. m1j5          db "Bonne fête aux Edouard !$"
  50. m1j6          db "Jour de l'Epiphanie !$"
  51. m1j7          db "Bonne fête aux Raymond !$"
  52. m1j8          db "Bonne fête aux Lucien !$"
  53. m1j9          db "Bonne fête aux Alix !$"
  54. m1j10         db "Bonne fête aux Guillaume !$"
  55. m1j11         db "Bonne fête aux Paulin !$"
  56. m1j12         db "Bonne fête aux Tatiana !$"
  57. m1j13         db "Bonne fête aux Yvette !$"
  58. m1j14         db "Bonne fête aux Nina !$"
  59. m1j15         db "Bonne fête aux Rémi !$"
  60. m1j16         db "Bonne fête aux Marcel !$"
  61. m1j17         db "Bonne fête aux Roseline !$"
  62. m1j18         db "Bonne fête aux Prisca !$"
  63. m1j19         db "Bonne fête aux Marius !$"
  64. m1j20         db "Bonne fête aux Sébastien !$"
  65. m1j21         db "Bonne fête aux Agnès !$"
  66. m1j22         db "Bonne fête aux Vincent !$"
  67. m1j23         db "Bonne fête aux Barnard !$"
  68. m1j24         db "Bonne fête aux François de Sales !$"
  69. m1j25         db "Conversion de Saint Paul !$"
  70. m1j26         db "Bonne fête aux Paule !$"
  71. m1j27         db "Bonne fête aux Angèle !$"
  72. m1j28         db "Bonne fête aux Thomas d'Aquin !$"
  73. m1j29         db "Bonne fête aux Gildas !$"
  74. m1j30         db "Bonne fête aux Martine !$"
  75. m1j31         db "Bonne fête aux Marcelle !$"
  76. m2j1          db "Bonne fête aux Ella !$"
  77. m2j2          db "Présentation de Notre Seigneur !$"
  78. m2j3          db "Bonne fête aux Blaise !$"
  79. m2j4          db "Bonne fête aux Véronique !$"
  80. m2j5          db "Bonne fête aux Agathe !$"
  81. m2j6          db "Bonne fête aux Gaston !$"
  82. m2j7          db "Bonne fête aux Eugénie !$"
  83. m2j8          db "Bonne fête aux Jacqueline !$"
  84. m2j9          db "Bonne fête aux Apolline !$"
  85. m2j10         db "Bonne fête aux Arnaud !$"
  86. m2j11         db "N.D de Lourdes !$"
  87. m2j12         db "C'est Mardi Gras !$"
  88. m2j13         db "Jour des Cendres !$"
  89. m2j14         db "Bonne fête aux Valentin !$"
  90. m2j15         db "Bonne fête aux Claude !$"
  91. m2j16         db "Bonne fête aux Julienne !$"
  92. m2j17         db "Jour de la Carême !$"
  93. m2j18         db "Bonne fête aux Bernadette !$"
  94. m2j19         db "Bonne fête aux Gabin !$"
  95. m2j20         db "Bonne fête aux Aimée !$"
  96. m2j21         db "Bonne fête aux Pierre Damien !$"
  97. m2j22         db "Bonne fête aux Isabelle !$"
  98. m2j23         db "Bonne fête aux Lazare !$"
  99. m2j24         db "Bonne fête aux Modeste !$"
  100. m2j25         db "Bonne fête aux Roméo !$"
  101. m2j26         db "Bonne fête aux Nestor !$"
  102. m2j27         db "Bonne fête aux Honorine !$"
  103. m2j28         db "Bonne fête aux Romain !$"
  104. m2j29         db "Bonne fête aux Auguste !$"
  105. m3j1          db "Bonne fête aux Aubin !$"
  106. m3j2          db "Bonne fête aux Charles le B. !$"
  107. m3j3          db "Bonne fête aux Guénolé !$"
  108. m3j4          db "Bonne fête aux Casimir !$"
  109. m3j5          db "Bonne fête aux Olive !$"
  110. m3j6          db "Bonne fête aux Colette !$"
  111. m3j7          db "Bonne fête aux Félicité !$"
  112. m3j8          db "Bonne fête aux Jean de Dieu !$"
  113. m3j9          db "Bonne fête aux Françoise !$"
  114. m3j10         db "Bonne fête aux Vivien !$"
  115. m3j11         db "Bonne fête aux Rosine !$"
  116. m3j12         db "Bonne fête aux Justine !$"
  117. m3j13         db "Bonne fête aux Rodrigue !$"
  118. m3j14         db "Bonne fête aux Mathilde !$"
  119. m3j15         db "Bonne fête aux Louise de Marillac !$"
  120. m3j16         db "Bonne fête aux Bénédicte !$"
  121. m3j17         db "Bonne fête aux Patrice !$"
  122. m3j18         db "Bonne fête aux Cyrille !$"
  123. m3j19         db "Bonne fête aux Joseph !$"
  124. m3j20         db "Bonne fête aux Herbert !$"
  125. m3j21         db "Nous sommes au Printemps !!$"
  126. m3j22         db "Bonne fête aux Léa !$"
  127. m3j23         db "Bonne fête aux Victorien !$"
  128. m3j24         db "Jour des Rameaux !$"
  129. m3j25         db "Jour de l'Annonciation !$"
  130. m3j26         db "Bonne fête aux Larissa !$"
  131. m3j27         db "Bonne fête aux Habib !$"
  132. m3j28         db "Bonne fête aux Gontran !$"
  133. m3j29         db "Bonne fête aux Gwladys !$"
  134. m3j30         db "Bonne fête aux Amédée !$"
  135. m3j31         db "Jour de Pâques !$"
  136. m4j1          db "Bonne fête aux Hugues !$"
  137. m4j2          db "Bonne fête aux Sandrine !$"
  138. m4j3          db "Bonne fête aux Richard !$"
  139. m4j4          db "Bonne fête aux Isidore !$"
  140. m4j5          db "Bonne fête aux Irène !$"
  141. m4j6          db "Bonne fête aux Marcellin !$"
  142. m4j7          db "St Jean-Baptiste de la Salle !$"
  143. m4j8          db "Bonne fête aux Julie !$"
  144. m4j9          db "Bonne fête aux Gautier !$"
  145. m4j10         db "Bonne fête aux Fulbert !$"
  146. m4j11         db "Bonne fête aux Stanislas !$"
  147. m4j12         db "Bonne fête aux Jules !$"
  148. m4j13         db "Bonne fête aux Ida !$"
  149. m4j14         db "Bonne fête aux Maxime !$"
  150. m4j15         db "Bonne fête aux Paterne !$"
  151. m4j16         db "Bonne fête aux Benoît Joseph !$"
  152. m4j17         db "Bonne fête aux Anicet !$"
  153. m4j18         db "Bonne fête aux Parfait !$"
  154. m4j19         db "Bonne fête aux Emma !$"
  155. m4j20         db "Bonne fête aux Odette !$"
  156. m4j21         db "Bonne fête aux Anselme !$"
  157. m4j22         db "Bonne fête aux Alexandre !$"
  158. m4j23         db "Bonne fête aux Georges !$"
  159. m4j24         db "Bonne fête aux Fidèle !$"
  160. m4j25         db "Bonne fête aux Marc !$"
  161. m4j26         db "Bonne fête aux Alida !$"
  162. m4j27         db "Bonne fête aux Zita !$"
  163. m4j28         db "Jour du Souvenir !$"
  164. m4j29         db "Bonne fête aux Catherine !$"
  165. m4j30         db "Bonne fête aux Robert !$"
  166. m5j1          db "C'est la fête du Travail !$"
  167. m5j2          db "Bonne fête aux Boris !$"
  168. m5j3          db "Bonne fête aux Philippe et Jacques !$"
  169. m5j4          db "Bonne fête aux Sylvain !$"
  170. m5j5          db "Bonne fête aux Judith !$"
  171. m5j6          db "Bonne fête aux Prudence !$"
  172. m5j7          db "Bonne fête aux Gisèle !$"
  173. m5j8          db "Jour de la Victoire de 1945 !$"
  174. m5j9          db "Jour de l'Ascension !$"
  175. m5j10         db "Bonne fête aux Solange !$"
  176. m5j11         db "Bonne fête aux Estelle !$"
  177. m5j12         db "Bonne fête aux Nérée et Achille !$"
  178. m5j13         db "Bonne fête aux Rolande !$"
  179. m5j14         db "Bonne fête aux Matthias !$"
  180. m5j15         db "Bonne fête aux Denise !$"
  181. m5j16         db "Bonne fête aux Honoré !$"
  182. m5j17         db "Bonne fête aux Pascal !$"
  183. m5j18         db "Bonne fête aux Eric !$"
  184. m5j19         db "Jour de la Pentecôte !$"
  185. m5j20         db "Bonne fête aux Bernardin !$"
  186. m5j21         db "Bonne fête aux Constantin !$"
  187. m5j22         db "Bonne fête aux Emile !$"
  188. m5j23         db "Bonne fête aux Didier !$"
  189. m5j24         db "Bonne fête aux Donatien !$"
  190. m5j25         db "Bonne fête aux Sophie !$"
  191. m5j26         db "Fête des Mères !$"
  192. m5j27         db "Bonne fête aux Augustin !$"
  193. m5j28         db "Bonne fête aux Germain !$"
  194. m5j29         db "Bonne fête aux Aymard !$"
  195. m5j30         db "Bonne fête aux Ferdinand !$"
  196. m5j31         db "Visitation de Notre Dame !$"
  197. m6j1          db "Bonne fête aux Justin !$"
  198. m6j2          db "Jour de Fête-Dieu !$"
  199. m6j3          db "Bonne fête aux Kevin !$"
  200. m6j4          db "Bonne fête aux Clotilde !$"
  201. m6j5          db "Bonne fête aux Igor !$"
  202. m6j6          db "Bonne fête aux Norbert !$"
  203. m6j7          db "Bonne fête aux Gilbert !$"
  204. m6j8          db "Bonne fête aux Médard !$"
  205. m6j9          db "Bonne fête aux Diane !$"
  206. m6j10         db "Bonne fête aux Landry !$"
  207. m6j11         db "Bonne fête aux Barnabé !$"
  208. m6j12         db "Bonne fête aux Guy !$"
  209. m6j13         db "Bonne fête aux Antoine de Padoue !$"
  210. m6j14         db "Bonne fête aux Elisée !$"
  211. m6j15         db "Bonne fête aux Germaine !$"
  212. m6j16         db "Fête des Pères !$"
  213. m6j17         db "Bonne fête aux Hervé !$"
  214. m6j18         db "Bonne fête aux Léonce !$"
  215. m6j19         db "Bonne fête aux Romuald !$"
  216. m6j20         db "Bonne fête aux Silvère !$"
  217. m6j21         db "Nous sommes en Eté !!$"
  218. m6j22         db "Bonne fête aux Alban !$"
  219. m6j23         db "Bonne fête aux Audrey !$"
  220. m6j24         db "Bonne fête aux Jean-Baptiste !$"
  221. m6j25         db "Bonne fête aux Prosper !$"
  222. m6j26         db "Bonne fête aux Anthelme !$"
  223. m6j27         db "Bonne fête aux Fernand !$"
  224. m6j28         db "Bonne fête aux Irénée !$"
  225. m6j29         db "Bonne fête aux Pierre et Paul !$"
  226. m6j30         db "Bonne fête aux Martial !$"
  227. m7j1          db "Bonne fête aux Thierry !$"
  228. m7j2          db "Bonne fête aux Martinien !$"
  229. m7j3          db "Bonne fête aux Thomas !$"
  230. m7j4          db "Bonne fête aux Florent !$"
  231. m7j5          db "Bonne fête aux Antoine !$"
  232. m7j6          db "Bonne fête aux Mariette !$"
  233. m7j7          db "Bonne fête aux Raoul !$"
  234. m7j8          db "Bonne fête aux Thibaut !$"
  235. m7j9          db "Bonne fête aux Amandine !$"
  236. m7j10         db "Bonne fête aux Ulrich !$"
  237. m7j11         db "Bonne fête aux Benoît !$"
  238. m7j12         db "Bonne fête aux Olivier !$"
  239. m7j13         db "Bonne fête aux Henri et Joël !$"
  240. m7j14         db "Fête Nationale !$"
  241. m7j15         db "Bonne fête aux Donald !$"
  242. m7j16         db "Notre Dame du Mont Carmel !$"
  243. m7j17         db "Bonne fête aux Charlotte !$"
  244. m7j18         db "Bonne fête aux Frédéric !$"
  245. m7j19         db "Bonne fête aux Arsène !$"
  246. m7j20         db "Bonne fête aux Marina !$"
  247. m7j21         db "Bonne fête aux Victor !$"
  248. m7j22         db "Bonne fête aux Marie-Madeleine !$"
  249. m7j23         db "Bonne fête aux Brigitte !$"
  250. m7j24         db "Bonne fête aux Christine !$"
  251. m7j25         db "Bonne fête aux Jacques !$"
  252. m7j26         db "Bonne fête aux Anne et Joachim !$"
  253. m7j27         db "Bonne fête aux Nathalie !$"
  254. m7j28         db "Bonne fête aux Samson !$"
  255. m7j29         db "Bonne fête aux Marthe !$"
  256. m7j30         db "Bonne fête aux Juliette !$"
  257. m7j31         db "Bonne fête aux Ignace de Loyola !$"
  258. m8j1          db "Bonne fête aux Alphonse !$"
  259. m8j2          db "Bonne fête aux Julien et Eusèbe !$"
  260. m8j3          db "Bonne fête aux Lydie !$"
  261. m8j4          db "St Jean-Marie Vianney !$"
  262. m8j5          db "Bonne fête aux Abel !$"
  263. m8j6          db "Transfiguration de Notre Seigneur !$"
  264. m8j7          db "Bonne fête aux Gaétan !$"
  265. m8j8          db "Bonne fête aux Dominique !$"
  266. m8j9          db "Bonne fête aux Amour !$"
  267. m8j10         db "Bonne fête aux Laurent !$"
  268. m8j11         db "Bonne fête aux Claire !$"
  269. m8j12         db "Bonne fête aux Clarisse !$"
  270. m8j13         db "Bonne fête aux Hippolyte !$"
  271. m8j14         db "Bonne fête aux Evrard !$"
  272. m8j15         db "Jour de l'Assomption !$"
  273. m8j16         db "Bonne fête aux Armel !$"
  274. m8j17         db "Bonne fête aux Hyacinthe !$"
  275. m8j18         db "Bonne fête aux Hélène !$"
  276. m8j19         db "Saint Jean Eudes !$"
  277. m8j20         db "Bonne fête aux Bernard !$"
  278. m8j21         db "Bonne fête aux Christophe !$"
  279. m8j22         db "Bonne fête aux Fabrice !$"
  280. m8j23         db "Bonne fête aux Rose de Lima !$"
  281. m8j24         db "Bonne fête aux Barthélémy !$"
  282. m8j25         db "Bonne fête aux Louis !$"
  283. m8j26         db "Bonne fête aux Natacha !$"
  284. m8j27         db "Bonne fête aux Monique !$"
  285. m8j28         db "Bonne fête aux Augustin !$"
  286. m8j29         db "Bonne fête aux Sabine !$"
  287. m8j30         db "Bonne fête aux Fiacre !$"
  288. m8j31         db "Bonne fête aux Aristide !$"
  289. m9j1          db "Bonne fête aux Gilles !$"
  290. m9j2          db "Bonne fête aux Ingrid !$"
  291. m9j3          db "Bonne fête aux Grégoire !$"
  292. m9j4          db "Bonne fête aux Rosalie !$"
  293. m9j5          db "Bonne fête aux Raïssa !$"
  294. m9j6          db "Bonne fête aux Bertrand !$"
  295. m9j7          db "Bonne fête aux Reine !$"
  296. m9j8          db "Nativité de Notre Dame !$"
  297. m9j9          db "Bonne fête aux Alain !$"
  298. m9j10         db "Bonne fête aux Inès !$"
  299. m9j11         db "Bonne fête aux Adelphe !$"
  300. m9j12         db "Bonne fête aux Apollinaire !$"
  301. m9j13         db "Bonne fête aux Aimé !$"
  302. m9j14         db "Jour de la Sainte Croix !$"
  303. m9j15         db "Bonne fête aux Roland !$"
  304. m9j16         db "Bonne fête aux Edith !$"
  305. m9j17         db "Bonne fête aux Renaud !$"
  306. m9j18         db "Bonne fête aux Nadège !$"
  307. m9j19         db "Bonne fête aux Emilie !$"
  308. m9j20         db "Bonne fête aux Davy !$"
  309. m9j21         db "Bonne fête aux Matthieu !$"
  310. m9j22         db "Bonne fête aux Maurice !$"
  311. m9j23         db "Nous sommes en Automne !!$"
  312. m9j24         db "Bonne fête aux Thècle !$"
  313. m9j25         db "Bonne fête aux Hermann !$"
  314. m9j26         db "Bonne fête aux Côme et Damien !$"
  315. m9j27         db "Bonne fête aux Vincent de Paul !$"
  316. m9j28         db "Bonne fête aux Venceslas !$"
  317. m9j29         db "Bonne fête aux Michel !$"
  318. m9j30         db "Bonne fête aux Jérôme !$"
  319. m10j1         db "Bonne fête aux Thérèse de l'E.J !$"
  320. m10j2         db "Bonne fête aux Léger !$"
  321. m10j3         db "Bonne fête aux Gérard !$"
  322. m10j4         db "Bonne fête aux François d'Assise !$"
  323. m10j5         db "Bonne fête aux Fleur !$"
  324. m10j6         db "Bonne fête aux Bruno !$"
  325. m10j7         db "Bonne fête aux Serge !$"
  326. m10j8         db "Bonne fête aux Pélagie !$"
  327. m10j9         db "Bonne fête aux Denis !$"
  328. m10j10        db "Bonne fête aux Ghislain !$"
  329. m10j11        db "Bonne fête aux Firmin !$"
  330. m10j12        db "Bonne fête aux Wilfried !$"
  331. m10j13        db "Bonne fête aux Géraud !$"
  332. m10j14        db "Bonne fête aux Juste !$"
  333. m10j15        db "Bonne fête aux Thérèse d'Avila !$"
  334. m10j16        db "Bonne fête aux Edwige !$"
  335. m10j17        db "Bonne fête aux Baudouin !$"
  336. m10j18        db "Bonne fête aux Luc !$"
  337. m10j19        db "Bonne fête aux René !$"
  338. m10j20        db "Bonne fête aux Adeline !$"
  339. m10j21        db "Bonne fête aux Céline !$"
  340. m10j22        db "Bonne fête aux Elodie !$"
  341. m10j23        db "Bonne fête aux Jean de Capistran !$"
  342. m10j24        db "Bonne fête aux Florentin !$"
  343. m10j25        db "Bonne fête aux Crépin !$"
  344. m10j26        db "Bonne fête aux Dimitri !$"
  345. m10j27        db "Bonne fête aux Emeline !$"
  346. m10j28        db "Bonne fête aux Simon et Jude !$"
  347. m10j29        db "Bonne fête aux Narcisse !$"
  348. m10j30        db "Bonne fête aux Bienvenue !$"
  349. m10j31        db "Bonne fête aux Quentin !$"
  350. m11j1         db "Jour de la Toussaint !$"
  351. m11j2         db "Jour des Défunts !$"
  352. m11j3         db "Bonne fête aux Hubert !$"
  353. m11j4         db "Bonne fête aux Charles !$"
  354. m11j5         db "Bonne fête aux Sylvie !$"
  355. m11j6         db "Bonne fête aux Bertille !$"
  356. m11j7         db "Bonne fête aux Carine !$"
  357. m11j8         db "Bonne fête aux Geoffroy !$"
  358. m11j9         db "Bonne fête aux Théodore !$"
  359. m11j10        db "Bonne fête aux Léon !$"
  360. m11j11        db "Jour de l'Armistice 1918 !$"
  361. m11j12        db "Bonne fête aux Christian !$"
  362. m11j13        db "Bonne fête aux Brice !$"
  363. m11j14        db "Bonne fête aux Sidoine !$"
  364. m11j15        db "Bonne fête aux Albert !$"
  365. m11j16        db "Bonne fête aux Marguerite !$"
  366. m11j17        db "Bonne fête aux Elisabeth !$"
  367. m11j18        db "Bonne fête aux Aude !$"
  368. m11j19        db "Bonne fête aux Tanguy !$"
  369. m11j20        db "Bonne fête aux Edmond !$"
  370. m11j21        db "Présentation de Marie !$"
  371. m11j22        db "Bonne fête aux Cécile !$"
  372. m11j23        db "Bonne fête aux Clément !$"
  373. m11j24        db "Bonne fête aux Flora !$"
  374. m11j25        db "Bonne fête aux Catherine Labouré !$"
  375. m11j26        db "Bonne fête aux Delphine !$"
  376. m11j27        db "Bonne fête aux Séverin !$"
  377. m11j28        db "Jacques de la Marche !$"
  378. m11j29        db "Bonne fête aux Saturnin !$"
  379. m11j30        db "Bonne fête aux André !$"
  380. m12j1         db "Jour de l'Avent !$"
  381. m12j2         db "Bonne fête aux Viviane !$"
  382. m12j3         db "Bonne fête aux Xavier !$"
  383. m12j4         db "Bonne fête aux Barbara !$"
  384. m12j5         db "Bonne fête aux Gérald !$"
  385. m12j6         db "Bonne fête aux Nicolas !$"
  386. m12j7         db "Bonne fête aux Ambroise !$"
  387. m12j8         db "Immaculée Conception !$"
  388. m12j9         db "Bonne fête aux Pierre Fourier !$"
  389. m12j10        db "Bonne fête aux Romaric !$"
  390. m12j11        db "Bonne fête aux Daniel !$"
  391. m12j12        db "Bonne fête aux Jeanne de Chantal !$"
  392. m12j13        db "Bonne fête aux Lucie !$"
  393. m12j14        db "Bonne fête aux Odile !$"
  394. m12j15        db "Bonne fête aux Ninon !$"
  395. m12j16        db "Bonne fête aux Alice !$"
  396. m12j17        db "Bonne fête aux Gaël !$"
  397. m12j18        db "Bonne fête aux Gatien !$"
  398. m12j19        db "Bonne fête aux Urbain !$"
  399. m12j20        db "Bonne fête aux Abraham !$"
  400. m12j21        db "Bonne fête aux Pierre Canisius !$"
  401. m12j22        db "Nous sommes en Hiver !!$"
  402. m12j23        db "Bonne fête aux Armand !$"
  403. m12j24        db "Bonne fête aux Adèle !$"
  404. m12j25        db "NOEL (St Manuel et Emmanuel) !$"
  405. m12j26        db "Bonne fête aux Etienne !$"
  406. m12j27        db "Bonne fête aux Jean !$"
  407. m12j28        db "Bonne fête aux Innocents !$"
  408. m12j29        db "Bonne fête aux David !$"
  409. m12j30        db "Bonne fête aux Roger !$"
  410. m12j31        db "Bonne fête aux Sylvestre !$"
  411.  
  412. reste         dw ?
  413. chrono        dw ?
  414.  
  415. heures        db ?
  416. minutes       db ?
  417. secondes      db ?
  418.  
  419. tiret         db " - $"
  420.  
  421. ligne1        db 0C9h, 78 dup (0CDh), 0BBh, 24h
  422. ligne4        db 0C8h, 78 dup (0CDh), 0BCh, 24h
  423.  
  424. titre         db "Almanach 1,1$"
  425.  
  426. jour          db ?
  427. date          db ?
  428. mois          db ?
  429. annee         dw ?
  430.  
  431. copyright     db "(C) Basmadjian$"
  432.  
  433. ; *************************
  434. ; Procédures (ou routines).
  435. ; *************************
  436.  
  437. cls           proc near         ; Efface l'écran.
  438.               push ax
  439.               push bx
  440.               push cx
  441.               push dx
  442.               mov al,0
  443.               mov ah,6
  444.               mov bh,7
  445.               mov cx,0
  446.               mov dh,24
  447.               mov dl,79
  448.               int 10h
  449.               pop dx
  450.               pop cx
  451.               pop bx
  452.               pop ax
  453.               ret
  454. cls           endp
  455.  
  456. gotoxy        proc near       ; Positionne le curseur.
  457.               push bx
  458.               push dx
  459.               mov dx,ax       ; DH <-- AH (ligne)
  460.                               ; DL <-- AL (colonne)
  461.               mov ah,2
  462.               mov bh,0
  463.               int 10h
  464.               pop dx
  465.               pop bx
  466.               ret
  467. gotoxy        endp
  468.  
  469. aff           proc near        ; Affichage de chaine de caractères.
  470.               push ax
  471.               mov ah,09h
  472.               int 21h
  473.               pop ax
  474.               ret
  475. aff           endp
  476.  
  477. affcar        proc near        ; Affichage d'un seul caractère.
  478.               push ax
  479.               mov ah,02h
  480.               int 21h
  481.               pop ax
  482.               ret
  483. affcar        endp
  484.  
  485. affchif       proc near        ; Affichage d'un chiffre.
  486.               push ax
  487.               push dx
  488.               add al,48
  489.               mov dl,al
  490.               mov ah,2
  491.               int 21h
  492.               pop ax
  493.               pop dx
  494.               ret
  495. affchif       endp
  496.  
  497. affdec        proc near        ; Affichage d'un nombre.
  498.               push bx
  499.               push cx
  500.               mov bx,10
  501.               mov cx,0
  502. decompose:    mov dx,0
  503.               div bx
  504.               push dx
  505.               inc cx
  506.               cmp ax,0
  507.               jnz decompose
  508. affichage:    pop ax
  509.               call affchif
  510.               loop affichage
  511.               pop cx
  512.               pop bx
  513.               ret
  514. affdec        endp
  515.  
  516. apg           proc near        ; Positionne le curseur pour afficher la
  517.               push ax          ; position de la date dans l'année.
  518.               mov ah,1
  519.               mov al,69
  520.               call gotoxy
  521.               pop ax
  522.               ret
  523. apg           endp
  524.  
  525. place         proc near        ; Calcule la position de la date dans l'année
  526.               push ax          ; en partant du début puis de la fin.
  527.               push dx
  528.               call apg
  529.               mov ax,chrono
  530.               call affdec
  531.               mov dx,offset tiret
  532.               call aff
  533.               mov ax,chrono
  534.               sub reste,ax
  535.               mov ax,reste
  536.               call affdec
  537.               pop dx
  538.               pop ax
  539.               ret
  540. place         endp
  541.  
  542. pos           proc near        ; Affiche la fête et appel de la procédure Place.
  543.               call aff
  544.               call place
  545.               jmp fin
  546.               ret
  547. pos           endp
  548.  
  549. ; ********************
  550. ; Programme principal.
  551. ; ********************
  552.  
  553. debut:
  554.               call cls
  555.               mov ah,0
  556.               mov al,0
  557.               call gotoxy
  558.               mov dx,offset ligne1
  559.               call aff
  560.               mov ah,1
  561.               call gotoxy
  562.               mov dl,186      ; "║"
  563.               call affcar
  564.               mov ah,1
  565.               mov al,79
  566.               call gotoxy
  567.               mov dl,186
  568.               call affcar
  569.               mov ah,2
  570.               mov al,0
  571.               call gotoxy
  572.               mov dl,186
  573.               call affcar
  574.               mov al,79
  575.               call gotoxy
  576.               mov dl,186
  577.               call affcar
  578.               mov ah,3
  579.               mov al,0
  580.               call gotoxy
  581.               mov dx,offset ligne4
  582.               call aff
  583.               mov ah,3
  584.               mov al,3
  585.               call gotoxy
  586.               mov dx,offset titre
  587.               call aff
  588.               mov ah,2ah      ; Interruption 21 Fonction 2Ah = Date système.
  589.               int 21h         ; DH = Mois, DL = Date, CX = Année, AL = Jour (0=Dimanche, 1=Lundi,...)
  590.               mov jour,al
  591.               mov date,dl
  592.               mov mois,dh
  593.               mov annee,cx
  594.               cmp annee,1992
  595.               je bissextile
  596.               cmp annee,1996
  597.               je bissextile
  598.               cmp annee,2000
  599.               je bissextile
  600.               jmp autre
  601. bissextile:   mov reste,366
  602.               jmp suite
  603. autre:        mov reste,365
  604. suite:        mov al,jour
  605.               cmp al,0
  606.               je dim
  607.               cmp al,1
  608.               je lun
  609.               cmp al,2
  610.               je mar
  611.               cmp al,3
  612.               je mer
  613.               cmp al,4
  614.               je jeu
  615.               cmp al,5
  616.               je ven
  617.               cmp al,6
  618.               je sam
  619.               jmp fin
  620. dim:          mov ah,1
  621.               mov al,2
  622.               call gotoxy
  623.               mov dx,offset jour7
  624.               call aff
  625.               jmp dated
  626. lun:          mov ah,1
  627.               mov al,2
  628.               call gotoxy
  629.               mov dx,offset jour1
  630.               call aff
  631.               jmp dated
  632. mar:          mov ah,1
  633.               mov al,2
  634.               call gotoxy
  635.               mov dx,offset jour2
  636.               call aff
  637.               jmp dated
  638. mer:          mov ah,1
  639.               mov al,2
  640.               call gotoxy
  641.               mov dx,offset jour3
  642.               call aff
  643.               jmp dated
  644. jeu:          mov ah,1
  645.               mov al,2
  646.               call gotoxy
  647.               mov dx,offset jour4
  648.               call aff
  649.               jmp dated
  650. ven:          mov ah,1
  651.               mov al,2
  652.               call gotoxy
  653.               mov dx,offset jour5
  654.               call aff
  655.               jmp dated
  656. sam:          mov ah,1
  657.               mov al,2
  658.               call gotoxy
  659.               mov dx,offset jour6
  660.               call aff
  661.  
  662. dated:        mov al,date
  663.               cbw                   ; Place la valeur de AL dans AX (16 bits).
  664.               call affdec
  665.               mov al,date
  666.               cbw
  667.               mov dfete,ax
  668.               mov dx,offset espace
  669.               call aff
  670.  
  671. moism:        mov al,mois
  672.               cmp al,1        ; Compare AL à 1.
  673.               jne comp2       ; Va au label comp2 si AL<>1,
  674.               jmp  mois1      ; Sinon va au label mois1.
  675. comp2:        cmp al,2        ; Etc...
  676.               jne comp3
  677.               jmp mois2
  678. comp3:        cmp al,3
  679.               jne comp4
  680.               jmp  mois3
  681. comp4:        cmp al,4
  682.               jne comp5
  683.               jmp mois4
  684. comp5:        cmp al,5
  685.               jne comp6
  686.               jmp mois5
  687. comp6:        cmp al,6
  688.               jne comp7
  689.               jmp mois6
  690. comp7:        cmp al,7
  691.               jne comp8
  692.               jmp mois7
  693. comp8:        cmp al,8
  694.               jne comp9
  695.               jmp mois8
  696. comp9:        cmp al,9
  697.               jne comp10
  698.               jmp mois9
  699. comp10:       cmp al,10
  700.               jne comp11
  701.               jmp mois10
  702. comp11:       cmp al,11
  703.               jne comp12
  704.               jmp mois11
  705. comp12:       cmp al,12
  706.               jne compxx
  707.               jmp mois12
  708. compxx:       jmp fin
  709.  
  710. ; MOIS...
  711.  
  712. mois1:        mov dx,offset m1
  713.               call aff
  714.               mov ax,dfete
  715.               mov chrono,ax
  716.               add dfete,100
  717.               jmp an
  718. mois2:        mov dx,offset m2
  719.               call aff
  720.               mov ax,dfete
  721.               mov chrono,ax
  722.               add chrono,31
  723.               add dfete,200
  724.               jmp an
  725. mois3:        mov dx,offset m3
  726.               call aff
  727.               mov ax,dfete
  728.               mov chrono,ax
  729.               cmp annee,1992
  730.               je bissext1
  731.               cmp annee,1996
  732.               je bissext1
  733.               cmp annee,2000
  734.               je bissext1
  735.               jmp aut1
  736. bissext1:     add chrono,60
  737.               jmp suit1
  738. aut1:         add chrono,59
  739. suit1:        add dfete,300
  740.               jmp an
  741. mois4:        mov dx,offset m4
  742.               call aff
  743.               mov ax,dfete
  744.               mov chrono,ax
  745.               cmp annee,1992
  746.               je bissext2
  747.               cmp annee,1996
  748.               je bissext2
  749.               cmp annee,2000
  750.               je bissext2
  751.               jmp aut2
  752. bissext2:     add chrono,91
  753.               jmp suit2
  754. aut2:         add chrono,90
  755. suit2:        add dfete,400
  756.               jmp an
  757. mois5:        mov dx,offset m5
  758.               call aff
  759.               mov ax,dfete
  760.               mov chrono,ax
  761.               cmp annee,1992
  762.               je bissext3
  763.               cmp annee,1996
  764.               je bissext3
  765.               cmp annee,2000
  766.               je bissext3
  767.               jmp aut3
  768. bissext3:     add chrono,121
  769.               jmp suit3
  770. aut3:         add chrono,120
  771. suit3:        add dfete,500
  772.               jmp an
  773. mois6:        mov dx,offset m6
  774.               call aff
  775.               mov ax,dfete
  776.               mov chrono,ax
  777.               cmp annee,1992
  778.               je bissext4
  779.               cmp annee,1996
  780.               je bissext4
  781.               cmp annee,2000
  782.               je bissext4
  783.               jmp aut4
  784. bissext4:     add chrono,152
  785.               jmp suit4
  786. aut4:         add chrono,151
  787. suit4:        add dfete,600
  788.               jmp an
  789. mois7:        mov dx,offset m7
  790.               call aff
  791.               mov ax,dfete
  792.               mov chrono,ax
  793.               cmp annee,1992
  794.               je bissext5
  795.               cmp annee,1996
  796.               je bissext5
  797.               cmp annee,2000
  798.               je bissext5
  799.               jmp aut5
  800. bissext5:     add chrono,182
  801.               jmp suit5
  802. aut5:         add chrono,181
  803. suit5:        add dfete,700
  804.               jmp an
  805. mois8:        mov dx,offset m8
  806.               call aff
  807.               mov ax,dfete
  808.               mov chrono,ax
  809.               cmp annee,1992
  810.               je bissext6
  811.               cmp annee,1996
  812.               je bissext6
  813.               cmp annee,2000
  814.               je bissext6
  815.               jmp aut6
  816. bissext6:     add chrono,213
  817.               jmp suit6
  818. aut6:         add chrono,212
  819. suit6:        add dfete,800
  820.               jmp an
  821. mois9:        mov dx,offset m9
  822.               call aff
  823.               mov ax,dfete
  824.               mov chrono,ax
  825.               cmp annee,1992
  826.               je bissext7
  827.               cmp annee,1996
  828.               je bissext7
  829.               cmp annee,2000
  830.               je bissext7
  831.               jmp aut7
  832. bissext7:     add chrono,244
  833.               jmp suit7
  834. aut7:         add chrono,243
  835. suit7:        add dfete,900
  836.               jmp an
  837. mois10:       mov dx,offset m10
  838.               call aff
  839.               mov ax,dfete
  840.               mov chrono,ax
  841.               cmp annee,1992
  842.               je bissext8
  843.               cmp annee,1996
  844.               je bissext8
  845.               cmp annee,2000
  846.               je bissext8
  847.               jmp aut8
  848. bissext8:     add chrono,274
  849.               jmp suit8
  850. aut8:         add chrono,273
  851. suit8:        add dfete,1000
  852.               jmp an
  853. mois11:       mov dx,offset m11
  854.               call aff
  855.               mov ax,dfete
  856.               mov chrono,ax
  857.               cmp annee,1992
  858.               je bissext9
  859.               cmp annee,1996
  860.               je bissext9
  861.               cmp annee,2000
  862.               je bissext9
  863.               jmp aut9
  864. bissext9:     add chrono,305
  865.               jmp suit9
  866. aut9:         add chrono,304
  867. suit9:        add dfete,1100
  868.               jmp an
  869. mois12:       mov dx,offset m12
  870.               call aff
  871.               mov ax,dfete
  872.               mov chrono,ax
  873.               cmp annee,1992
  874.               je bissext10
  875.               cmp annee,1996
  876.               je bissext10
  877.               cmp annee,2000
  878.               je bissext10
  879.               jmp aut10
  880. bissext10:    add chrono,335
  881.               jmp suit10
  882. aut10:        add chrono,334
  883. suit10:       add dfete,1200
  884.  
  885. ; ANNEES...
  886.  
  887. an:           mov ax,annee
  888.               call affdec
  889.               mov dl,44
  890.               call affcar
  891.               mov dl,32
  892.               call affcar
  893.  
  894. ; HEURES...
  895.  
  896. temps:        mov ah,2ch
  897.               int 21h
  898.               mov heures,ch
  899.               mov minutes,cl
  900.               cmp heures,0
  901.               je h1
  902.               cmp heures,1
  903.               je h2
  904.               cmp heures,2
  905.               je h3
  906.               cmp heures,3
  907.               je h4
  908.               cmp heures,4
  909.               je h5
  910.               cmp heures,5
  911.               je h6
  912.               cmp heures,6
  913.               je h7
  914.               cmp heures,7
  915.               je h8
  916.               cmp heures,8
  917.               je h9
  918.               cmp heures,9
  919.               je h10
  920.               jmp hsuite1
  921. h1:           mov dx,offset zero
  922.               call aff
  923.               jmp hsuite2
  924. h2:           mov dx,offset un
  925.               call aff
  926.               jmp hsuite2
  927. h3:           mov dx,offset deux
  928.               call aff
  929.               jmp hsuite2
  930. h4:           mov dx,offset trois
  931.               call aff
  932.               jmp hsuite2
  933. h5:           mov dx,offset quatre
  934.               call aff
  935.               jmp hsuite2
  936. h6:           mov dx,offset cinq
  937.               call aff
  938.               jmp hsuite2
  939. h7:           mov dx,offset six
  940.               call aff
  941.               jmp hsuite2
  942. h8:           mov dx,offset sept
  943.               call aff
  944.               jmp hsuite2
  945. h9:           mov dx,offset huit
  946.               call aff
  947.               jmp hsuite2
  948. h10:          mov dx,offset neuf
  949.               call aff
  950.               jmp hsuite2
  951. hsuite1:      mov al,heures
  952.               cbw
  953.               call affdec
  954. hsuite2:      mov dl,58
  955.               call affcar
  956.               cmp minutes,0
  957.               je min1
  958.               cmp minutes,1
  959.               je min2
  960.               cmp minutes,2
  961.               je min3
  962.               cmp minutes,3
  963.               je min4
  964.               cmp minutes,4
  965.               je min5
  966.               cmp minutes,5
  967.               je min6
  968.               cmp minutes,6
  969.               je min7
  970.               cmp minutes,7
  971.               je min8
  972.               cmp minutes,8
  973.               je min9
  974.               cmp minutes,9
  975.               je min10
  976.               jmp msuite1
  977. min1:         mov dx,offset zero
  978.               call aff
  979.               jmp jourfete
  980. min2:         mov dx,offset un
  981.               call aff
  982.               jmp jourfete
  983. min3:         mov dx,offset deux
  984.               call aff
  985.               jmp jourfete
  986. min4:         mov dx,offset trois
  987.               call aff
  988.               jmp jourfete
  989. min5:         mov dx,offset quatre
  990.               call aff
  991.               jmp jourfete
  992. min6:         mov dx,offset cinq
  993.               call aff
  994.               jmp jourfete
  995. min7:         mov dx,offset six
  996.               call aff
  997.               jmp jourfete
  998. min8:         mov dx,offset sept
  999.               call aff
  1000.               jmp jourfete
  1001. min9:         mov dx,offset huit
  1002.               call aff
  1003.               jmp jourfete
  1004. min10:        mov dx,offset neuf
  1005.               call aff
  1006.               jmp jourfete
  1007. msuite1:      mov al,minutes
  1008.               cbw
  1009.               call affdec
  1010.  
  1011. ; *******************************
  1012. ; Affichage des fêtes souhaitées.
  1013. ; *******************************
  1014.  
  1015. jourfete:     mov ah,2
  1016.               mov al,26
  1017.               call gotoxy
  1018.               cmp dfete,101
  1019.               jne sj1
  1020.               jmp j1
  1021. sj1:          cmp dfete,102
  1022.               jne sj2
  1023.               jmp j2
  1024. sj2:          cmp dfete,103
  1025.               jne sj3
  1026.               jmp j3
  1027. sj3:          cmp dfete,104
  1028.               jne sj4
  1029.               jmp j4
  1030. sj4:          cmp dfete,105
  1031.               jne sj5
  1032.               jmp j5
  1033. sj5:          cmp dfete,106
  1034.               jne sj6
  1035.               jmp j6
  1036. sj6:          cmp dfete,107
  1037.               jne sj7
  1038.               jmp j7
  1039. sj7:          cmp dfete,108
  1040.               jne sj8
  1041.               jmp j8
  1042. sj8:          cmp dfete,109
  1043.               jne sj9
  1044.               jmp j9
  1045. sj9:          cmp dfete,110
  1046.               jne sj10
  1047.               jmp j10
  1048. sj10:         cmp dfete,111
  1049.               jne sj11
  1050.               jmp j11
  1051. sj11:         cmp dfete,112
  1052.               jne sj12
  1053.               jmp j12
  1054. sj12:         cmp dfete,113
  1055.               jne sj13
  1056.               jmp j13
  1057. sj13:         cmp dfete,114
  1058.               jne sj14
  1059.               jmp j14
  1060. sj14:         cmp dfete,115
  1061.               jne sj15
  1062.               jmp j15
  1063. sj15:         cmp dfete,116
  1064.               jne sj16
  1065.               jmp j16
  1066. sj16:         cmp dfete,117
  1067.               jne sj17
  1068.               jmp j17
  1069. sj17:         cmp dfete,118
  1070.               jne sj18
  1071.               jmp j18
  1072. sj18:         cmp dfete,119
  1073.               jne sj19
  1074.               jmp j9
  1075. sj19:         cmp dfete,120
  1076.               jne sj20
  1077.               jmp j20
  1078. sj20:         cmp dfete,121
  1079.               jne sj21
  1080.               jmp j21
  1081. sj21:         cmp dfete,122
  1082.               jne sj22
  1083.               jmp j22
  1084. sj22:         cmp dfete,123
  1085.               jne sj23
  1086.               jmp j23
  1087. sj23:         cmp dfete,124
  1088.               jne sj24
  1089.               jmp j24
  1090. sj24:         cmp dfete,125
  1091.               jne sj25
  1092.               jmp j25
  1093. sj25:         cmp dfete,126
  1094.               jne sj26
  1095.               jmp j26
  1096. sj26:         cmp dfete,127
  1097.               jne sj27
  1098.               jmp j27
  1099. sj27:         cmp dfete,128
  1100.               jne sj28
  1101.               jmp j28
  1102. sj28:         cmp dfete,129
  1103.               jne sj29
  1104.               jmp j29
  1105. sj29:         cmp dfete,130
  1106.               jne sj30
  1107.               jmp j30
  1108. sj30:         cmp dfete,131
  1109.               jne sj31
  1110.               jmp j31
  1111. sj31:         cmp dfete,201
  1112.               jne sj32
  1113.               jmp j32
  1114. sj32:         cmp dfete,202
  1115.               jne sj33
  1116.               jmp j33
  1117. sj33:         cmp dfete,203
  1118.               jne sj34
  1119.               jmp j34
  1120. sj34:         cmp dfete,204
  1121.               jne sj35
  1122.               jmp j35
  1123. sj35:         cmp dfete,205
  1124.               jne sj36
  1125.               jmp j36
  1126. sj36:         cmp dfete,206
  1127.               jne sj37
  1128.               jmp j37
  1129. sj37:         cmp dfete,207
  1130.               jne sj38
  1131.               jmp j38
  1132. sj38:         cmp dfete,208
  1133.               jne sj39
  1134.               jmp j39
  1135. sj39:         cmp dfete,209
  1136.               jne sj40
  1137.               jmp j40
  1138. sj40:         cmp dfete,210
  1139.               jne sj41
  1140.               jmp j41
  1141. sj41:         cmp dfete,211
  1142.               jne sj42
  1143.               jmp j42
  1144. sj42:         cmp dfete,212
  1145.               jne sj43
  1146.               jmp j43
  1147. sj43:         cmp dfete,213
  1148.               jne sj44
  1149.               jmp j44
  1150. sj44:         cmp dfete,214
  1151.               jne sj45
  1152.               jmp j45
  1153. sj45:         cmp dfete,215
  1154.               jne sj46
  1155.               jmp j46
  1156. sj46:         cmp dfete,216
  1157.               jne sj47
  1158.               jmp j47
  1159. sj47:         cmp dfete,217
  1160.               jne sj48
  1161.               jmp j48
  1162. sj48:         cmp dfete,218
  1163.               jne sj49
  1164.               jmp j49
  1165. sj49:         cmp dfete,219
  1166.               jne sj50
  1167.               jmp j50
  1168. sj50:         cmp dfete,220
  1169.               jne sj51
  1170.               jmp j51
  1171. sj51:         cmp dfete,221
  1172.               jne sj52
  1173.               jmp j52
  1174. sj52:         cmp dfete,222
  1175.               jne sj53
  1176.               jmp j53
  1177. sj53:         cmp dfete,223
  1178.               jne sj54
  1179.               jmp j54
  1180. sj54:         cmp dfete,224
  1181.               jne sj55
  1182.               jmp j55
  1183. sj55:         cmp dfete,225
  1184.               jne sj56
  1185.               jmp j56
  1186. sj56:         cmp dfete,226
  1187.               jne sj57
  1188.               jmp j57
  1189. sj57:         cmp dfete,227
  1190.               jne sj58
  1191.               jmp j58
  1192. sj58:         cmp dfete,228
  1193.               jne sj59
  1194.               jmp j59
  1195. sj59:         cmp dfete,229
  1196.               jne sj59bis
  1197.               jmp j59bis
  1198. sj59bis:      cmp dfete,301
  1199.               jne sj60
  1200.               jmp j60
  1201. sj60:         cmp dfete,302
  1202.               jne sj61
  1203.               jmp j61
  1204. sj61:         cmp dfete,303
  1205.               jne sj62
  1206.               jmp j62
  1207. sj62:         cmp dfete,304
  1208.               jne sj63
  1209.               jmp j63
  1210. sj63:         cmp dfete,305
  1211.               jne sj64
  1212.               jmp j64
  1213. sj64:         cmp dfete,306
  1214.               jne sj65
  1215.               jmp j65
  1216. sj65:         cmp dfete,307
  1217.               jne sj66
  1218.               jmp j66
  1219. sj66:         cmp dfete,308
  1220.               jne sj67
  1221.               jmp j67
  1222. sj67:         cmp dfete,309
  1223.               jne sj68
  1224.               jmp j68
  1225. sj68:         cmp dfete,310
  1226.               jne sj69
  1227.               jmp j69
  1228. sj69:         cmp dfete,311
  1229.               jne sj70
  1230.               jmp j70
  1231. sj70:         cmp dfete,312
  1232.               jne sj71
  1233.               jmp j71
  1234. sj71:         cmp dfete,313
  1235.               jne sj72
  1236.               jmp j72
  1237. sj72:         cmp dfete,314
  1238.               jne sj73
  1239.               jmp j73
  1240. sj73:         cmp dfete,315
  1241.               jne sj74
  1242.               jmp j74
  1243. sj74:         cmp dfete,316
  1244.               jne sj75
  1245.               jmp j75
  1246. sj75:         cmp dfete,317
  1247.               jne sj76
  1248.               jmp j76
  1249. sj76:         cmp dfete,318
  1250.               jne sj77
  1251.               jmp j77
  1252. sj77:         cmp dfete,319
  1253.               jne sj78
  1254.               jmp j78
  1255. sj78:         cmp dfete,320
  1256.               jne sj79
  1257.               jmp j79
  1258. sj79:         cmp dfete,321
  1259.               jne sj80
  1260.               jmp j80
  1261. sj80:         cmp dfete,322
  1262.               jne sj81
  1263.               jmp j81
  1264. sj81:         cmp dfete,323
  1265.               jne sj82
  1266.               jmp j82
  1267. sj82:         cmp dfete,324
  1268.               jne sj83
  1269.               jmp j83
  1270. sj83:         cmp dfete,325
  1271.               jne sj84
  1272.               jmp j84
  1273. sj84:         cmp dfete,326
  1274.               jne sj85
  1275.               jmp j85
  1276. sj85:         cmp dfete,327
  1277.               jne sj86
  1278.               jmp j86
  1279. sj86:         cmp dfete,328
  1280.               jne sj87
  1281.               jmp j87
  1282. sj87:         cmp dfete,329
  1283.               jne sj88
  1284.               jmp j88
  1285. sj88:         cmp dfete,330
  1286.               jne sj89
  1287.               jmp j89
  1288. sj89:         cmp dfete,331
  1289.               jne sj90
  1290.               jmp j90
  1291. sj90:         cmp dfete,401
  1292.               jne sj91
  1293.               jmp j91
  1294. sj91:         cmp dfete,402
  1295.               jne sj92
  1296.               jmp j92
  1297. sj92:         cmp dfete,403
  1298.               jne sj93
  1299.               jmp j93
  1300. sj93:         cmp dfete,404
  1301.               jne sj94
  1302.               jmp j94
  1303. sj94:         cmp dfete,405
  1304.               jne sj95
  1305.               jmp j95
  1306. sj95:         cmp dfete,406
  1307.               jne sj96
  1308.               jmp j96
  1309. sj96:         cmp dfete,407
  1310.               jne sj97
  1311.               jmp j97
  1312. sj97:         cmp dfete,408
  1313.               jne sj98
  1314.               jmp j98
  1315. sj98:         cmp dfete,409
  1316.               jne sj99
  1317.               jmp j99
  1318. sj99:         cmp dfete,410
  1319.               jne sj100
  1320.               jmp j100
  1321. sj100:        cmp dfete,411
  1322.               jne sj101
  1323.               jmp j101
  1324. sj101:        cmp dfete,412
  1325.               jne sj102
  1326.               jmp j102
  1327. sj102:        cmp dfete,413
  1328.               jne sj103
  1329.               jmp j103
  1330. sj103:        cmp dfete,414
  1331.               jne sj104
  1332.               jmp j104
  1333. sj104:        cmp dfete,415
  1334.               jne sj105
  1335.               jmp j105
  1336. sj105:        cmp dfete,416
  1337.               jne sj106
  1338.               jmp j106
  1339. sj106:        cmp dfete,417
  1340.               jne sj107
  1341.               jmp j107
  1342. sj107:        cmp dfete,418
  1343.               jne sj108
  1344.               jmp j108
  1345. sj108:        cmp dfete,419
  1346.               jne sj109
  1347.               jmp j109
  1348. sj109:        cmp dfete,420
  1349.               jne sj110
  1350.               jmp j110
  1351. sj110:        cmp dfete,421
  1352.               jne sj111
  1353.               jmp j111
  1354. sj111:        cmp dfete,422
  1355.               jne sj112
  1356.               jmp j112
  1357. sj112:        cmp dfete,423
  1358.               jne sj113
  1359.               jmp j113
  1360. sj113:        cmp dfete,424
  1361.               jne sj114
  1362.               jmp j114
  1363. sj114:        cmp dfete,425
  1364.               jne sj115
  1365.               jmp j115
  1366. sj115:        cmp dfete,426
  1367.               jne sj116
  1368.               jmp j116
  1369. sj116:        cmp dfete,427
  1370.               jne sj117
  1371.               jmp j117
  1372. sj117:        cmp dfete,428
  1373.               jne sj118
  1374.               jmp j118
  1375. sj118:        cmp dfete,429
  1376.               jne sj119
  1377.               jmp j119
  1378. sj119:        cmp dfete,430
  1379.               jne sj120
  1380.               jmp j120
  1381. sj120:        cmp dfete,501
  1382.               jne sj121
  1383.               jmp j121
  1384. sj121:        cmp dfete,502
  1385.               jne sj122
  1386.               jmp j122
  1387. sj122:        cmp dfete,503
  1388.               jne sj123
  1389.               jmp j123
  1390. sj123:        cmp dfete,504
  1391.               jne sj124
  1392.               jmp j124
  1393. sj124:        cmp dfete,505
  1394.               jne sj125
  1395.               jmp j125
  1396. sj125:        cmp dfete,506
  1397.               jne sj126
  1398.               jmp j126
  1399. sj126:        cmp dfete,507
  1400.               jne sj127
  1401.               jmp j127
  1402. sj127:        cmp dfete,508
  1403.               jne sj128
  1404.               jmp j128
  1405. sj128:        cmp dfete,509
  1406.               jne sj129
  1407.               jmp j129
  1408. sj129:        cmp dfete,510
  1409.               jne sj130
  1410.               jmp j130
  1411. sj130:        cmp dfete,511
  1412.               jne sj131
  1413.               jmp j131
  1414. sj131:        cmp dfete,512
  1415.               jne sj132
  1416.               jmp j132
  1417. sj132:        cmp dfete,513
  1418.               jne sj133
  1419.               jmp j133
  1420. sj133:        cmp dfete,514
  1421.               jne sj134
  1422.               jmp j134
  1423. sj134:        cmp dfete,515
  1424.               jne sj135
  1425.               jmp j135
  1426. sj135:        cmp dfete,516
  1427.               jne sj136
  1428.               jmp j136
  1429. sj136:        cmp dfete,517
  1430.               jne sj137
  1431.               jmp j137
  1432. sj137:        cmp dfete,518
  1433.               jne sj138
  1434.               jmp j138
  1435. sj138:        cmp dfete,519
  1436.               jne sj139
  1437.               jmp j139
  1438. sj139:        cmp dfete,520
  1439.               jne sj140
  1440.               jmp j140
  1441. sj140:        cmp dfete,521
  1442.               jne sj141
  1443.               jmp j141
  1444. sj141:        cmp dfete,522
  1445.               jne sj142
  1446.               jmp j142
  1447. sj142:        cmp dfete,523
  1448.               jne sj143
  1449.               jmp j143
  1450. sj143:        cmp dfete,524
  1451.               jne sj144
  1452.               jmp j144
  1453. sj144:        cmp dfete,525
  1454.               jne sj145
  1455.               jmp j145
  1456. sj145:        cmp dfete,526
  1457.               jne sj146
  1458.               jmp j146
  1459. sj146:        cmp dfete,527
  1460.               jne sj147
  1461.               jmp j147
  1462. sj147:        cmp dfete,528
  1463.               jne sj148
  1464.               jmp j148
  1465. sj148:        cmp dfete,529
  1466.               jne sj149
  1467.               jmp j149
  1468. sj149:        cmp dfete,530
  1469.               jne sj150
  1470.               jmp j150
  1471. sj150:        cmp dfete,531
  1472.               jne sj151
  1473.               jmp j151
  1474. sj151:        cmp dfete,601
  1475.               jne sj152
  1476.               jmp j152
  1477. sj152:        cmp dfete,602
  1478.               jne sj153
  1479.               jmp j153
  1480. sj153:        cmp dfete,603
  1481.               jne sj154
  1482.               jmp j154
  1483. sj154:        cmp dfete,604
  1484.               jne sj155
  1485.               jmp j155
  1486. sj155:        cmp dfete,605
  1487.               jne sj156
  1488.               jmp j156
  1489. sj156:        cmp dfete,606
  1490.               jne sj157
  1491.               jmp j157
  1492. sj157:        cmp dfete,607
  1493.               jne sj158
  1494.               jmp j158
  1495. sj158:        cmp dfete,608
  1496.               jne sj159
  1497.               jmp j159
  1498. sj159:        cmp dfete,609
  1499.               jne sj160
  1500.               jmp j160
  1501. sj160:        cmp dfete,610
  1502.               jne sj161
  1503.               jmp j161
  1504. sj161:        cmp dfete,611
  1505.               jne sj162
  1506.               jmp j162
  1507. sj162:        cmp dfete,612
  1508.               jne sj163
  1509.               jmp j163
  1510. sj163:        cmp dfete,613
  1511.               jne sj164
  1512.               jmp j164
  1513. sj164:        cmp dfete,614
  1514.               jne sj165
  1515.               jmp j165
  1516. sj165:        cmp dfete,615
  1517.               jne sj166
  1518.               jmp j166
  1519. sj166:        cmp dfete,616
  1520.               jne sj167
  1521.               jmp j167
  1522. sj167:        cmp dfete,617
  1523.               jne sj168
  1524.               jmp j168
  1525. sj168:        cmp dfete,618
  1526.               jne sj169
  1527.               jmp j169
  1528. sj169:        cmp dfete,619
  1529.               jne sj170
  1530.               jmp j170
  1531. sj170:        cmp dfete,620
  1532.               jne sj171
  1533.               jmp j171
  1534. sj171:        cmp dfete,621
  1535.               jne sj172
  1536.               jmp j172
  1537. sj172:        cmp dfete,622
  1538.               jne sj173
  1539.               jmp j173
  1540. sj173:        cmp dfete,623
  1541.               jne sj174
  1542.               jmp j174
  1543. sj174:        cmp dfete,624
  1544.               jne sj175
  1545.               jmp j175
  1546. sj175:        cmp dfete,625
  1547.               jne sj176
  1548.               jmp j176
  1549. sj176:        cmp dfete,626
  1550.               jne sj177
  1551.               jmp j177
  1552. sj177:        cmp dfete,627
  1553.               jne sj178
  1554.               jmp j178
  1555. sj178:        cmp dfete,628
  1556.               jne sj179
  1557.               jmp j179
  1558. sj179:        cmp dfete,629
  1559.               jne sj180
  1560.               jmp j180
  1561. sj180:        cmp dfete,630
  1562.               jne sj181
  1563.               jmp j181
  1564. sj181:        cmp dfete,701
  1565.               jne sj182
  1566.               jmp j182
  1567. sj182:        cmp dfete,702
  1568.               jne sj183
  1569.               jmp j183
  1570. sj183:        cmp dfete,703
  1571.               jne sj184
  1572.               jmp j184
  1573. sj184:        cmp dfete,704
  1574.               jne sj185
  1575.               jmp j185
  1576. sj185:        cmp dfete,705
  1577.               jne sj186
  1578.               jmp j186
  1579. sj186:        cmp dfete,706
  1580.               jne sj187
  1581.               jmp j187
  1582. sj187:        cmp dfete,707
  1583.               jne sj188
  1584.               jmp j188
  1585. sj188:        cmp dfete,708
  1586.               jne sj189
  1587.               jmp j189
  1588. sj189:        cmp dfete,709
  1589.               jne sj190
  1590.               jmp j190
  1591. sj190:        cmp dfete,710
  1592.               jne sj191
  1593.               jmp j191
  1594. sj191:        cmp dfete,711
  1595.               jne sj192
  1596.               jmp j192
  1597. sj192:        cmp dfete,712
  1598.               jne sj193
  1599.               jmp j193
  1600. sj193:        cmp dfete,713
  1601.               jne sj194
  1602.               jmp j194
  1603. sj194:        cmp dfete,714
  1604.               jne sj195
  1605.               jmp j195
  1606. sj195:        cmp dfete,715
  1607.               jne sj196
  1608.               jmp j196
  1609. sj196:        cmp dfete,716
  1610.               jne sj197
  1611.               jmp j197
  1612. sj197:        cmp dfete,717
  1613.               jne sj198
  1614.               jmp j198
  1615. sj198:        cmp dfete,718
  1616.               jne sj199
  1617.               jmp j199
  1618. sj199:        cmp dfete,719
  1619.               jne sj200
  1620.               jmp j200
  1621. sj200:        cmp dfete,720
  1622.               jne sj201
  1623.               jmp j201
  1624. sj201:        cmp dfete,721
  1625.               jne sj202
  1626.               jmp j202
  1627. sj202:        cmp dfete,722
  1628.               jne sj203
  1629.               jmp j203
  1630. sj203:        cmp dfete,723
  1631.               jne sj204
  1632.               jmp j204
  1633. sj204:        cmp dfete,724
  1634.               jne sj205
  1635.               jmp j205
  1636. sj205:        cmp dfete,725
  1637.               jne sj206
  1638.               jmp j206
  1639. sj206:        cmp dfete,726
  1640.               jne sj207
  1641.               jmp j207
  1642. sj207:        cmp dfete,727
  1643.               jne sj208
  1644.               jmp j208
  1645. sj208:        cmp dfete,728
  1646.               jne sj209
  1647.               jmp j209
  1648. sj209:        cmp dfete,729
  1649.               jne sj210
  1650.               jmp j210
  1651. sj210:        cmp dfete,730
  1652.               jne sj211
  1653.               jmp j211
  1654. sj211:        cmp dfete,731
  1655.               jne sj212
  1656.               jmp j212
  1657. sj212:        cmp dfete,801
  1658.               jne sj213
  1659.               jmp j213
  1660. sj213:        cmp dfete,802
  1661.               jne sj214
  1662.               jmp j214
  1663. sj214:        cmp dfete,803
  1664.               jne sj215
  1665.               jmp j215
  1666. sj215:        cmp dfete,804
  1667.               jne sj216
  1668.               jmp j216
  1669. sj216:        cmp dfete,805
  1670.               jne sj217
  1671.               jmp j217
  1672. sj217:        cmp dfete,806
  1673.               jne sj218
  1674.               jmp j218
  1675. sj218:        cmp dfete,807
  1676.               jne sj219
  1677.               jmp j219
  1678. sj219:        cmp dfete,808
  1679.               jne sj220
  1680.               jmp j220
  1681. sj220:        cmp dfete,809
  1682.               jne sj221
  1683.               jmp j221
  1684. sj221:        cmp dfete,810
  1685.               jne sj222
  1686.               jmp j222
  1687. sj222:        cmp dfete,811
  1688.               jne sj223
  1689.               jmp j223
  1690. sj223:        cmp dfete,812
  1691.               jne sj224
  1692.               jmp j224
  1693. sj224:        cmp dfete,813
  1694.               jne sj225
  1695.               jmp j225
  1696. sj225:        cmp dfete,814
  1697.               jne sj226
  1698.               jmp j226
  1699. sj226:        cmp dfete,815
  1700.               jne sj227
  1701.               jmp j227
  1702. sj227:        cmp dfete,816
  1703.               jne sj228
  1704.               jmp j228
  1705. sj228:        cmp dfete,817
  1706.               jne sj229
  1707.               jmp j229
  1708. sj229:        cmp dfete,818
  1709.               jne sj230
  1710.               jmp j230
  1711. sj230:        cmp dfete,819
  1712.               jne sj231
  1713.               jmp j231
  1714. sj231:        cmp dfete,820
  1715.               jne sj232
  1716.               jmp j232
  1717. sj232:        cmp dfete,821
  1718.               jne sj233
  1719.               jmp j233
  1720. sj233:        cmp dfete,822
  1721.               jne sj234
  1722.               jmp j234
  1723. sj234:        cmp dfete,823
  1724.               jne sj235
  1725.               jmp j235
  1726. sj235:        cmp dfete,824
  1727.               jne sj236
  1728.               jmp j236
  1729. sj236:        cmp dfete,825
  1730.               jne sj237
  1731.               jmp j237
  1732. sj237:        cmp dfete,826
  1733.               jne sj238
  1734.               jmp j238
  1735. sj238:        cmp dfete,827
  1736.               jne sj239
  1737.               jmp j239
  1738. sj239:        cmp dfete,828
  1739.               jne sj240
  1740.               jmp j240
  1741. sj240:        cmp dfete,829
  1742.               jne sj241
  1743.               jmp j241
  1744. sj241:        cmp dfete,830
  1745.               jne sj242
  1746.               jmp j242
  1747. sj242:        cmp dfete,831
  1748.               jne sj243
  1749.               jmp j243
  1750. sj243:        cmp dfete,901
  1751.               jne sj244
  1752.               jmp j244
  1753. sj244:        cmp dfete,902
  1754.               jne sj245
  1755.               jmp j245
  1756. sj245:        cmp dfete,903
  1757.               jne sj246
  1758.               jmp j246
  1759. sj246:        cmp dfete,904
  1760.               jne sj247
  1761.               jmp j247
  1762. sj247:        cmp dfete,905
  1763.               jne sj248
  1764.               jmp j248
  1765. sj248:        cmp dfete,906
  1766.               jne sj249
  1767.               jmp j249
  1768. sj249:        cmp dfete,907
  1769.               jne sj250
  1770.               jmp j250
  1771. sj250:        cmp dfete,908
  1772.               jne sj251
  1773.               jmp j251
  1774. sj251:        cmp dfete,909
  1775.               jne sj252
  1776.               jmp j252
  1777. sj252:        cmp dfete,910
  1778.               jne sj253
  1779.               jmp j253
  1780. sj253:        cmp dfete,911
  1781.               jne sj254
  1782.               jmp j254
  1783. sj254:        cmp dfete,912
  1784.               jne sj255
  1785.               jmp j255
  1786. sj255:        cmp dfete,913
  1787.               jne sj256
  1788.               jmp j256
  1789. sj256:        cmp dfete,914
  1790.               jne sj257
  1791.               jmp j257
  1792. sj257:        cmp dfete,915
  1793.               jne sj258
  1794.               jmp j258
  1795. sj258:        cmp dfete,916
  1796.               jne sj259
  1797.               jmp j259
  1798. sj259:        cmp dfete,917
  1799.               jne sj260
  1800.               jmp j260
  1801. sj260:        cmp dfete,918
  1802.               jne sj261
  1803.               jmp j261
  1804. sj261:        cmp dfete,919
  1805.               jne sj262
  1806.               jmp j262
  1807. sj262:        cmp dfete,920
  1808.               jne sj263
  1809.               jmp j263
  1810. sj263:        cmp dfete,921
  1811.               jne sj264
  1812.               jmp j264
  1813. sj264:        cmp dfete,922
  1814.               jne sj265
  1815.               jmp j265
  1816. sj265:        cmp dfete,923
  1817.               jne sj266
  1818.               jmp j266
  1819. sj266:        cmp dfete,924
  1820.               jne sj267
  1821.               jmp j267
  1822. sj267:        cmp dfete,925
  1823.               jne sj268
  1824.               jmp j268
  1825. sj268:        cmp dfete,926
  1826.               jne sj269
  1827.               jmp j269
  1828. sj269:        cmp dfete,927
  1829.               jne sj270
  1830.               jmp j270
  1831. sj270:        cmp dfete,928
  1832.               jne sj271
  1833.               jmp j271
  1834. sj271:        cmp dfete,929
  1835.               jne sj272
  1836.               jmp j272
  1837. sj272:        cmp dfete,930
  1838.               jne sj273
  1839.               jmp j273
  1840. sj273:        cmp dfete,1001
  1841.               jne sj274
  1842.               jmp j274
  1843. sj274:        cmp dfete,1002
  1844.               jne sj275
  1845.               jmp j275
  1846. sj275:        cmp dfete,1003
  1847.               jne sj276
  1848.               jmp j276
  1849. sj276:        cmp dfete,1004
  1850.               jne sj277
  1851.               jmp j277
  1852. sj277:        cmp dfete,1005
  1853.               jne sj278
  1854.               jmp j278
  1855. sj278:        cmp dfete,1006
  1856.               jne sj279
  1857.               jmp j279
  1858. sj279:        cmp dfete,1007
  1859.               jne sj280
  1860.               jmp j280
  1861. sj280:        cmp dfete,1008
  1862.               jne sj281
  1863.               jmp j281
  1864. sj281:        cmp dfete,1009
  1865.               jne sj282
  1866.               jmp j282
  1867. sj282:        cmp dfete,1010
  1868.               jne sj283
  1869.               jmp j283
  1870. sj283:        cmp dfete,1011
  1871.               jne sj284
  1872.               jmp j284
  1873. sj284:        cmp dfete,1012
  1874.               jne sj285
  1875.               jmp j285
  1876. sj285:        cmp dfete,1013
  1877.               jne sj286
  1878.               jmp j286
  1879. sj286:        cmp dfete,1014
  1880.               jne sj287
  1881.               jmp j287
  1882. sj287:        cmp dfete,1015
  1883.               jne sj288
  1884.               jmp j288
  1885. sj288:        cmp dfete,1016
  1886.               jne sj289
  1887.               jmp j289
  1888. sj289:        cmp dfete,1017
  1889.               jne sj290
  1890.               jmp j290
  1891. sj290:        cmp dfete,1018
  1892.               jne sj291
  1893.               jmp j291
  1894. sj291:        cmp dfete,1019
  1895.               jne sj292
  1896.               jmp j292
  1897. sj292:        cmp dfete,1020
  1898.               jne sj293
  1899.               jmp j293
  1900. sj293:        cmp dfete,1021
  1901.               jne sj294
  1902.               jmp j294
  1903. sj294:        cmp dfete,1022
  1904.               jne sj295
  1905.               jmp j295
  1906. sj295:        cmp dfete,1023
  1907.               jne sj296
  1908.               jmp j296
  1909. sj296:        cmp dfete,1024
  1910.               jne sj297
  1911.               jmp j297
  1912. sj297:        cmp dfete,1025
  1913.               jne sj298
  1914.               jmp j298
  1915. sj298:        cmp dfete,1026
  1916.               jne sj299
  1917.               jmp j299
  1918. sj299:        cmp dfete,1027
  1919.               jne sj300
  1920.               jmp j300
  1921. sj300:        cmp dfete,1028
  1922.               jne sj301
  1923.               jmp j301
  1924. sj301:        cmp dfete,1029
  1925.               jne sj302
  1926.               jmp j302
  1927. sj302:        cmp dfete,1030
  1928.               jne sj303
  1929.               jmp j303
  1930. sj303:        cmp dfete,1031
  1931.               jne sj304
  1932.               jmp j304
  1933. sj304:        cmp dfete,1101
  1934.               jne sj305
  1935.               jmp j305
  1936. sj305:        cmp dfete,1102
  1937.               jne sj306
  1938.               jmp j306
  1939. sj306:        cmp dfete,1103
  1940.               jne sj307
  1941.               jmp j307
  1942. sj307:        cmp dfete,1104
  1943.               jne sj308
  1944.               jmp j308
  1945. sj308:        cmp dfete,1105
  1946.               jne sj309
  1947.               jmp j309
  1948. sj309:        cmp dfete,1106
  1949.               jne sj310
  1950.               jmp j310
  1951. sj310:        cmp dfete,1107
  1952.               jne sj311
  1953.               jmp j311
  1954. sj311:        cmp dfete,1108
  1955.               jne sj312
  1956.               jmp j312
  1957. sj312:        cmp dfete,1109
  1958.               jne sj313
  1959.               jmp j313
  1960. sj313:        cmp dfete,1110
  1961.               jne sj314
  1962.               jmp j314
  1963. sj314:        cmp dfete,1111
  1964.               jne sj315
  1965.               jmp j315
  1966. sj315:        cmp dfete,1112
  1967.               jne sj316
  1968.               jmp j316
  1969. sj316:        cmp dfete,1113
  1970.               jne sj317
  1971.               jmp j317
  1972. sj317:        cmp dfete,1114
  1973.               jne sj318
  1974.               jmp j318
  1975. sj318:        cmp dfete,1115
  1976.               jne sj319
  1977.               jmp j319
  1978. sj319:        cmp dfete,1116
  1979.               jne sj320
  1980.               jmp j320
  1981. sj320:        cmp dfete,1117
  1982.               jne sj321
  1983.               jmp j321
  1984. sj321:        cmp dfete,1118
  1985.               jne sj322
  1986.               jmp j322
  1987. sj322:        cmp dfete,1119
  1988.               jne sj323
  1989.               jmp j323
  1990. sj323:        cmp dfete,1120
  1991.               jne sj324
  1992.               jmp j324
  1993. sj324:        cmp dfete,1121
  1994.               jne sj325
  1995.               jmp j325
  1996. sj325:        cmp dfete,1122
  1997.               jne sj326
  1998.               jmp j326
  1999. sj326:        cmp dfete,1123
  2000.               jne sj327
  2001.               jmp j327
  2002. sj327:        cmp dfete,1124
  2003.               jne sj328
  2004.               jmp j328
  2005. sj328:        cmp dfete,1125
  2006.               jne sj329
  2007.               jmp j329
  2008. sj329:        cmp dfete,1126
  2009.               jne sj330
  2010.               jmp j330
  2011. sj330:        cmp dfete,1127
  2012.               jne sj331
  2013.               jmp j331
  2014. sj331:        cmp dfete,1128
  2015.               jne sj332
  2016.               jmp j332
  2017. sj332:        cmp dfete,1129
  2018.               jne sj333
  2019.               jmp j333
  2020. sj333:        cmp dfete,1130
  2021.               jne sj334
  2022.               jmp j334
  2023. sj334:        cmp dfete,1201
  2024.               jne sj335
  2025.               jmp j335
  2026. sj335:        cmp dfete,1202
  2027.               jne sj336
  2028.               jmp j336
  2029. sj336:        cmp dfete,1203
  2030.               jne sj337
  2031.               jmp j337
  2032. sj337:        cmp dfete,1204
  2033.               jne sj338
  2034.               jmp j338
  2035. sj338:        cmp dfete,1205
  2036.               jne sj339
  2037.               jmp j339
  2038. sj339:        cmp dfete,1206
  2039.               jne sj340
  2040.               jmp j340
  2041. sj340:        cmp dfete,1207
  2042.               jne sj341
  2043.               jmp j341
  2044. sj341:        cmp dfete,1208
  2045.               jne sj342
  2046.               jmp j342
  2047. sj342:        cmp dfete,1209
  2048.               jne sj343
  2049.               jmp j343
  2050. sj343:        cmp dfete,1210
  2051.               jne sj344
  2052.               jmp j344
  2053. sj344:        cmp dfete,1211
  2054.               jne sj345
  2055.               jmp j345
  2056. sj345:        cmp dfete,1212
  2057.               jne sj346
  2058.               jmp j346
  2059. sj346:        cmp dfete,1213
  2060.               jne sj347
  2061.               jmp j347
  2062. sj347:        cmp dfete,1214
  2063.               jne sj348
  2064.               jmp j348
  2065. sj348:        cmp dfete,1215
  2066.               jne sj349
  2067.               jmp j349
  2068. sj349:        cmp dfete,1216
  2069.               jne sj350
  2070.               jmp j350
  2071. sj350:        cmp dfete,1217
  2072.               jne sj351
  2073.               jmp j351
  2074. sj351:        cmp dfete,1218
  2075.               jne sj352
  2076.               jmp j352
  2077. sj352:        cmp dfete,1219
  2078.               jne sj353
  2079.               jmp j353
  2080. sj353:        cmp dfete,1220
  2081.               jne sj354
  2082.               jmp j354
  2083. sj354:        cmp dfete,1221
  2084.               jne sj355
  2085.               jmp j355
  2086. sj355:        cmp dfete,1222
  2087.               jne sj356
  2088.               jmp j356
  2089. sj356:        cmp dfete,1223
  2090.               jne sj357
  2091.               jmp j357
  2092. sj357:        cmp dfete,1224
  2093.               jne sj358
  2094.               jmp j358
  2095. sj358:        cmp dfete,1225
  2096.               jne sj359
  2097.               jmp j359
  2098. sj359:        cmp dfete,1226
  2099.               jne sj360
  2100.               jmp j360
  2101. sj360:        cmp dfete,1227
  2102.               jne sj361
  2103.               jmp j361
  2104. sj361:        cmp dfete,1228
  2105.               jne sj362
  2106.               jmp j362
  2107. sj362:        cmp dfete,1229
  2108.               jne sj363
  2109.               jmp j363
  2110. sj363:        cmp dfete,1230
  2111.               jne sj364
  2112.               jmp j364
  2113. sj364:        cmp dfete,1231
  2114.               jne sjfin
  2115.               jmp j365
  2116. sjfin:        jmp fin
  2117. j1:           mov dx,offset m1j1
  2118.               call pos
  2119. j2:           mov dx,offset m1j2
  2120.               call pos
  2121. j3:           mov dx,offset m1j3
  2122.               call pos
  2123. j4:           mov dx,offset m1j4
  2124.               call pos
  2125. j5:           mov dx,offset m1j5
  2126.               call pos
  2127. j6:           mov dx,offset m1j6
  2128.               call pos
  2129. j7:           mov dx,offset m1j7
  2130.               call pos
  2131. j8:           mov dx,offset m1j8
  2132.               call pos
  2133. j9:           mov dx,offset m1j9
  2134.               call pos
  2135. j10:          mov dx,offset m1j10
  2136.               call pos
  2137. j11:          mov dx,offset m1j11
  2138.               call pos
  2139. j12:          mov dx,offset m1j12
  2140.               call pos
  2141. j13:          mov dx,offset m1j13
  2142.               call pos
  2143. j14:          mov dx,offset m1j14
  2144.               call pos
  2145. j15:          mov dx,offset m1j15
  2146.               call pos
  2147. j16:          mov dx,offset m1j16
  2148.               call pos
  2149. j17:          mov dx,offset m1j17
  2150.               call pos
  2151. j18:          mov dx,offset m1j18
  2152.               call pos
  2153. j19:          mov dx,offset m1j19
  2154.               call pos
  2155. j20:          mov dx,offset m1j20
  2156.               call pos
  2157. j21:          mov dx,offset m1j21
  2158.               call pos
  2159. j22:          mov dx,offset m1j22
  2160.               call pos
  2161. j23:          mov dx,offset m1j23
  2162.               call pos
  2163. j24:          mov dx,offset m1j24
  2164.               call pos
  2165. j25:          mov dx,offset m1j25
  2166.               call pos
  2167. j26:          mov dx,offset m1j26
  2168.               call pos
  2169. j27:          mov dx,offset m1j27
  2170.               call pos
  2171. j28:          mov dx,offset m1j28
  2172.               call pos
  2173. j29:          mov dx,offset m1j29
  2174.               call pos
  2175. j30:          mov dx,offset m1j30
  2176.               call pos
  2177. j31:          mov dx,offset m1j31
  2178.               call pos
  2179. j32:          mov dx,offset m2j1
  2180.               call pos
  2181. j33:          mov dx,offset m2j2
  2182.               call pos
  2183. j34:          mov dx,offset m2j3
  2184.               call pos
  2185. j35:          mov dx,offset m2j4
  2186.               call pos
  2187. j36:          mov dx,offset m2j5
  2188.               call pos
  2189. j37:          mov dx,offset m2j6
  2190.               call pos
  2191. j38:          mov dx,offset m2j7
  2192.               call pos
  2193. j39:          mov dx,offset m2j8
  2194.               call pos
  2195. j40:          mov dx,offset m2j9
  2196.               call pos
  2197. j41:          mov dx,offset m2j10
  2198.               call pos
  2199. j42:          mov dx,offset m2j11
  2200.               call pos
  2201. j43:          mov dx,offset m2j12
  2202.               call pos
  2203. j44:          mov dx,offset m2j13
  2204.               call pos
  2205. j45:          mov dx,offset m2j14
  2206.               call pos
  2207. j46:          mov dx,offset m2j15
  2208.               call pos
  2209. j47:          mov dx,offset m2j16
  2210.               call pos
  2211. j48:          mov dx,offset m2j17
  2212.               call pos
  2213. j49:          mov dx,offset m2j18
  2214.               call pos
  2215. j50:          mov dx,offset m2j19
  2216.               call pos
  2217. j51:          mov dx,offset m2j20
  2218.               call pos
  2219. j52:          mov dx,offset m2j21
  2220.               call pos
  2221. j53:          mov dx,offset m2j22
  2222.               call pos
  2223. j54:          mov dx,offset m2j23
  2224.               call pos
  2225. j55:          mov dx,offset m2j24
  2226.               call pos
  2227. j56:          mov dx,offset m2j25
  2228.               call pos
  2229. j57:          mov dx,offset m2j26
  2230.               call pos
  2231. j58:          mov dx,offset m2j27
  2232.               call pos
  2233. j59:          mov dx,offset m2j28
  2234.               call pos
  2235. j59bis:       mov dx,offset m2j29
  2236.               call pos
  2237. j60:          mov dx,offset m3j1
  2238.               call pos
  2239. j61:          mov dx,offset m3j2
  2240.               call pos
  2241. j62:          mov dx,offset m3j3
  2242.               call pos
  2243. j63:          mov dx,offset m3j4
  2244.               call pos
  2245. j64:          mov dx,offset m3j5
  2246.               call pos
  2247. j65:          mov dx,offset m3j6
  2248.               call pos
  2249. j66:          mov dx,offset m3j7
  2250.               call pos
  2251. j67:          mov dx,offset m3j8
  2252.               call pos
  2253. j68:          mov dx,offset m3j9
  2254.               call pos
  2255. j69:          mov dx,offset m3j10
  2256.               call pos
  2257. j70:          mov dx,offset m3j11
  2258.               call pos
  2259. j71:          mov dx,offset m3j12
  2260.               call pos
  2261. j72:          mov dx,offset m3j13
  2262.               call pos
  2263. j73:          mov dx,offset m3j14
  2264.               call pos
  2265. j74:          mov dx,offset m3j15
  2266.               call pos
  2267. j75:          mov dx,offset m3j16
  2268.               call pos
  2269. j76:          mov dx,offset m3j17
  2270.               call pos
  2271. j77:          mov dx,offset m3j18
  2272.               call pos
  2273. j78:          mov dx,offset m3j19
  2274.               call pos
  2275. j79:          mov dx,offset m3j20
  2276.               call pos
  2277. j80:          mov dx,offset m3j21
  2278.               call pos
  2279. j81:          mov dx,offset m3j22
  2280.               call pos
  2281. j82:          mov dx,offset m3j23
  2282.               call pos
  2283. j83:          mov dx,offset m3j24
  2284.               call pos
  2285. j84:          mov dx,offset m3j25
  2286.               call pos
  2287. j85:          mov dx,offset m3j26
  2288.               call pos
  2289. j86:          mov dx,offset m3j27
  2290.               call pos
  2291. j87:          mov dx,offset m3j28
  2292.               call pos
  2293. j88:          mov dx,offset m3j29
  2294.               call pos
  2295. j89:          mov dx,offset m3j30
  2296.               call pos
  2297. j90:          mov dx,offset m3j31
  2298.               call pos
  2299. j91:          mov dx,offset m4j1
  2300.               call pos
  2301. j92:          mov dx,offset m4j2
  2302.               call pos
  2303. j93:          mov dx,offset m4j3
  2304.               call pos
  2305. j94:          mov dx,offset m4j4
  2306.               call pos
  2307. j95:          mov dx,offset m4j5
  2308.               call pos
  2309. j96:          mov dx,offset m4j6
  2310.               call pos
  2311. j97:          mov dx,offset m4j7
  2312.               call pos
  2313. j98:          mov dx,offset m4j8
  2314.               call pos
  2315. j99:          mov dx,offset m4j9
  2316.               call pos
  2317. j100:         mov dx,offset m4j10
  2318.               call pos
  2319. j101:         mov dx,offset m4j11
  2320.               call pos
  2321. j102:         mov dx,offset m4j12
  2322.               call pos
  2323. j103:         mov dx,offset m4j13
  2324.               call pos
  2325. j104:         mov dx,offset m4j14
  2326.               call pos
  2327. j105:         mov dx,offset m4j15
  2328.               call pos
  2329. j106:         mov dx,offset m4j16
  2330.               call pos
  2331. j107:         mov dx,offset m4j17
  2332.               call pos
  2333. j108:         mov dx,offset m4j18
  2334.               call pos
  2335. j109:         mov dx,offset m4j19
  2336.               call pos
  2337. j110:         mov dx,offset m4j20
  2338.               call pos
  2339. j111:         mov dx,offset m4j21
  2340.               call pos
  2341. j112:         mov dx,offset m4j22
  2342.               call pos
  2343. j113:         mov dx,offset m4j23
  2344.               call pos
  2345. j114:         mov dx,offset m4j24
  2346.               call pos
  2347. j115:         mov dx,offset m4j25
  2348.               call pos
  2349. j116:         mov dx,offset m4j26
  2350.               call pos
  2351. j117:         mov dx,offset m4j27
  2352.               call pos
  2353. j118:         mov dx,offset m4j28
  2354.               call pos
  2355. j119:         mov dx,offset m4j29
  2356.               call pos
  2357. j120:         mov dx,offset m4j30
  2358.               call pos
  2359. j121:         mov dx,offset m5j1
  2360.               call pos
  2361. j122:         mov dx,offset m5j2
  2362.               call pos
  2363. j123:         mov dx,offset m5j3
  2364.               call pos
  2365. j124:         mov dx,offset m5j4
  2366.               call pos
  2367. j125:         mov dx,offset m5j5
  2368.               call pos
  2369. j126:         mov dx,offset m5j6
  2370.               call pos
  2371. j127:         mov dx,offset m5j7
  2372.               call pos
  2373. j128:         mov dx,offset m5j8
  2374.               call pos
  2375. j129:         mov dx,offset m5j9
  2376.               call pos
  2377. j130:         mov dx,offset m5j10
  2378.               call pos
  2379. j131:         mov dx,offset m5j11
  2380.               call pos
  2381. j132:         mov dx,offset m5j12
  2382.               call pos
  2383. j133:         mov dx,offset m5j13
  2384.               call pos
  2385. j134:         mov dx,offset m5j14
  2386.               call pos
  2387. j135:         mov dx,offset m5j15
  2388.               call pos
  2389. j136:         mov dx,offset m5j16
  2390.               call pos
  2391. j137:         mov dx,offset m5j17
  2392.               call pos
  2393. j138:         mov dx,offset m5j18
  2394.               call pos
  2395. j139:         mov dx,offset m5j19
  2396.               call pos
  2397. j140:         mov dx,offset m5j20
  2398.               call pos
  2399. j141:         mov dx,offset m5j21
  2400.               call pos
  2401. j142:         mov dx,offset m5j22
  2402.               call pos
  2403. j143:         mov dx,offset m5j23
  2404.               call pos
  2405. j144:         mov dx,offset m5j24
  2406.               call pos
  2407. j145:         mov dx,offset m5j25
  2408.               call pos
  2409. j146:         mov dx,offset m5j26
  2410.               call pos
  2411. j147:         mov dx,offset m5j27
  2412.               call pos
  2413. j148:         mov dx,offset m5j28
  2414.               call pos
  2415. j149:         mov dx,offset m5j29
  2416.               call pos
  2417. j150:         mov dx,offset m5j30
  2418.               call pos
  2419. j151:         mov dx,offset m5j31
  2420.               call pos
  2421. j152:         mov dx,offset m6j1
  2422.               call pos
  2423. j153:         mov dx,offset m6j2
  2424.               call pos
  2425. j154:         mov dx,offset m6j3
  2426.               call pos
  2427. j155:         mov dx,offset m6j4
  2428.               call pos
  2429. j156:         mov dx,offset m6j5
  2430.               call pos
  2431. j157:         mov dx,offset m6j6
  2432.               call pos
  2433. j158:         mov dx,offset m6j7
  2434.               call pos
  2435. j159:         mov dx,offset m6j8
  2436.               call pos
  2437. j160:         mov dx,offset m6j9
  2438.               call pos
  2439. j161:         mov dx,offset m6j10
  2440.               call pos
  2441. j162:         mov dx,offset m6j11
  2442.               call pos
  2443. j163:         mov dx,offset m6j12
  2444.               call pos
  2445. j164:         mov dx,offset m6j13
  2446.               call pos
  2447. j165:         mov dx,offset m6j14
  2448.               call pos
  2449. j166:         mov dx,offset m6j15
  2450.               call pos
  2451. j167:         mov dx,offset m6j16
  2452.               call pos
  2453. j168:         mov dx,offset m6j17
  2454.               call pos
  2455. j169:         mov dx,offset m6j18
  2456.               call pos
  2457. j170:         mov dx,offset m6j19
  2458.               call pos
  2459. j171:         mov dx,offset m6j20
  2460.               call pos
  2461. j172:         mov dx,offset m6j21
  2462.               call pos
  2463. j173:         mov dx,offset m6j22
  2464.               call pos
  2465. j174:         mov dx,offset m6j23
  2466.               call pos
  2467. j175:         mov dx,offset m6j24
  2468.               call pos
  2469. j176:         mov dx,offset m6j25
  2470.               call pos
  2471. j177:         mov dx,offset m6j26
  2472.               call pos
  2473. j178:         mov dx,offset m6j27
  2474.               call pos
  2475. j179:         mov dx,offset m6j28
  2476.               call pos
  2477. j180:         mov dx,offset m6j29
  2478.               call pos
  2479. j181:         mov dx,offset m6j30
  2480.               call pos
  2481. j182:         mov dx,offset m7j1
  2482.               call pos
  2483. j183:         mov dx,offset m7j2
  2484.               call pos
  2485. j184:         mov dx,offset m7j3
  2486.               call pos
  2487. j185:         mov dx,offset m7j4
  2488.               call pos
  2489. j186:         mov dx,offset m7j5
  2490.               call pos
  2491. j187:         mov dx,offset m7j6
  2492.               call pos
  2493. j188:         mov dx,offset m7j7
  2494.               call pos
  2495. j189:         mov dx,offset m7j8
  2496.               call pos
  2497. j190:         mov dx,offset m7j9
  2498.               call pos
  2499. j191:         mov dx,offset m7j10
  2500.               call pos
  2501. j192:         mov dx,offset m7j11
  2502.               call pos
  2503. j193:         mov dx,offset m7j12
  2504.               call pos
  2505. j194:         mov dx,offset m7j13
  2506.               call pos
  2507. j195:         mov dx,offset m7j14
  2508.               call pos
  2509. j196:         mov dx,offset m7j15
  2510.               call pos
  2511. j197:         mov dx,offset m7j16
  2512.               call pos
  2513. j198:         mov dx,offset m7j17
  2514.               call pos
  2515. j199:         mov dx,offset m7j18
  2516.               call pos
  2517. j200:         mov dx,offset m7j19
  2518.               call pos
  2519. j201:         mov dx,offset m7j20
  2520.               call pos
  2521. j202:         mov dx,offset m7j21
  2522.               call pos
  2523. j203:         mov dx,offset m7j22
  2524.               call pos
  2525. j204:         mov dx,offset m7j23
  2526.               call pos
  2527. j205:         mov dx,offset m7j24
  2528.               call pos
  2529. j206:         mov dx,offset m7j25
  2530.               call pos
  2531. j207:         mov dx,offset m7j26
  2532.               call pos
  2533. j208:         mov dx,offset m7j27
  2534.               call pos
  2535. j209:         mov dx,offset m7j28
  2536.               call pos
  2537. j210:         mov dx,offset m7j29
  2538.               call pos
  2539. j211:         mov dx,offset m7j30
  2540.               call pos
  2541. j212:         mov dx,offset m7j31
  2542.               call pos
  2543. j213:         mov dx,offset m8j1
  2544.               call pos
  2545. j214:         mov dx,offset m8j2
  2546.               call pos
  2547. j215:         mov dx,offset m8j3
  2548.               call pos
  2549. j216:         mov dx,offset m8j4
  2550.               call pos
  2551. j217:         mov dx,offset m8j5
  2552.               call pos
  2553. j218:         mov dx,offset m8j6
  2554.               call pos
  2555. j219:         mov dx,offset m8j7
  2556.               call pos
  2557. j220:         mov dx,offset m8j8
  2558.               call pos
  2559. j221:         mov dx,offset m8j9
  2560.               call pos
  2561. j222:         mov dx,offset m8j10
  2562.               call pos
  2563. j223:         mov dx,offset m8j11
  2564.               call pos
  2565. j224:         mov dx,offset m8j12
  2566.               call pos
  2567. j225:         mov dx,offset m8j13
  2568.               call pos
  2569. j226:         mov dx,offset m8j14
  2570.               call pos
  2571. j227:         mov dx,offset m8j15
  2572.               call pos
  2573. j228:         mov dx,offset m8j16
  2574.               call pos
  2575. j229:         mov dx,offset m8j17
  2576.               call pos
  2577. j230:         mov dx,offset m8j18
  2578.               call pos
  2579. j231:         mov dx,offset m8j19
  2580.               call pos
  2581. j232:         mov dx,offset m8j20
  2582.               call pos
  2583. j233:         mov dx,offset m8j21
  2584.               call pos
  2585. j234:         mov dx,offset m8j22
  2586.               call pos
  2587. j235:         mov dx,offset m8j23
  2588.               call pos
  2589. j236:         mov dx,offset m8j24
  2590.               call pos
  2591. j237:         mov dx,offset m8j25
  2592.               call pos
  2593. j238:         mov dx,offset m8j26
  2594.               call pos
  2595. j239:         mov dx,offset m8j27
  2596.               call pos
  2597. j240:         mov dx,offset m8j28
  2598.               call pos
  2599. j241:         mov dx,offset m8j29
  2600.               call pos
  2601. j242:         mov dx,offset m8j30
  2602.               call pos
  2603. j243:         mov dx,offset m8j31
  2604.               call pos
  2605. j244:         mov dx,offset m9j1
  2606.               call pos
  2607. j245:         mov dx,offset m9j2
  2608.               call pos
  2609. j246:         mov dx,offset m9j3
  2610.               call pos
  2611. j247:         mov dx,offset m9j4
  2612.               call pos
  2613. j248:         mov dx,offset m9j5
  2614.               call pos
  2615. j249:         mov dx,offset m9j6
  2616.               call pos
  2617. j250:         mov dx,offset m9j7
  2618.               call pos
  2619. j251:         mov dx,offset m9j8
  2620.               call pos
  2621. j252:         mov dx,offset m9j9
  2622.               call pos
  2623. j253:         mov dx,offset m9j10
  2624.               call pos
  2625. j254:         mov dx,offset m9j11
  2626.               call pos
  2627. j255:         mov dx,offset m9j12
  2628.               call pos
  2629. j256:         mov dx,offset m9j13
  2630.               call pos
  2631. j257:         mov dx,offset m9j14
  2632.               call pos
  2633. j258:         mov dx,offset m9j15
  2634.               call pos
  2635. j259:         mov dx,offset m9j16
  2636.               call pos
  2637. j260:         mov dx,offset m9j17
  2638.               call pos
  2639. j261:         mov dx,offset m9j18
  2640.               call pos
  2641. j262:         mov dx,offset m9j19
  2642.               call pos
  2643. j263:         mov dx,offset m9j20
  2644.               call pos
  2645. j264:         mov dx,offset m9j21
  2646.               call pos
  2647. j265:         mov dx,offset m9j22
  2648.               call pos
  2649. j266:         mov dx,offset m9j23
  2650.               call pos
  2651. j267:         mov dx,offset m9j24
  2652.               call pos
  2653. j268:         mov dx,offset m9j25
  2654.               call pos
  2655. j269:         mov dx,offset m9j26
  2656.               call pos
  2657. j270:         mov dx,offset m9j27
  2658.               call pos
  2659. j271:         mov dx,offset m9j28
  2660.               call pos
  2661. j272:         mov dx,offset m9j29
  2662.               call pos
  2663. j273:         mov dx,offset m9j30
  2664.               call pos
  2665. j274:         mov dx,offset m10j1
  2666.               call pos
  2667. j275:         mov dx,offset m10j2
  2668.               call pos
  2669. j276:         mov dx,offset m10j3
  2670.               call pos
  2671. j277:         mov dx,offset m10j4
  2672.               call pos
  2673. j278:         mov dx,offset m10j5
  2674.               call pos
  2675. j279:         mov dx,offset m10j6
  2676.               call pos
  2677. j280:         mov dx,offset m10j7
  2678.               call pos
  2679. j281:         mov dx,offset m10j8
  2680.               call pos
  2681. j282:         mov dx,offset m10j9
  2682.               call pos
  2683. j283:         mov dx,offset m10j10
  2684.               call pos
  2685. j284:         mov dx,offset m10j11
  2686.               call pos
  2687. j285:         mov dx,offset m10j12
  2688.               call pos
  2689. j286:         mov dx,offset m10j13
  2690.               call pos
  2691. j287:         mov dx,offset m10j14
  2692.               call pos
  2693. j288:         mov dx,offset m10j15
  2694.               call pos
  2695. j289:         mov dx,offset m10j16
  2696.               call pos
  2697. j290:         mov dx,offset m10j17
  2698.               call pos
  2699. j291:         mov dx,offset m10j18
  2700.               call pos
  2701. j292:         mov dx,offset m10j19
  2702.               call pos
  2703. j293:         mov dx,offset m10j20
  2704.               call pos
  2705. j294:         mov dx,offset m10j21
  2706.               call pos
  2707. j295:         mov dx,offset m10j22
  2708.               call pos
  2709. j296:         mov dx,offset m10j23
  2710.               call pos
  2711. j297:         mov dx,offset m10j24
  2712.               call pos
  2713. j298:         mov dx,offset m10j25
  2714.               call pos
  2715. j299:         mov dx,offset m10j26
  2716.               call pos
  2717. j300:         mov dx,offset m10j27
  2718.               call pos
  2719. j301:         mov dx,offset m10j28
  2720.               call pos
  2721. j302:         mov dx,offset m10j29
  2722.               call pos
  2723. j303:         mov dx,offset m10j30
  2724.               call pos
  2725. j304:         mov dx,offset m10j31
  2726.               call pos
  2727. j305:         mov dx,offset m11j1
  2728.               call pos
  2729. j306:         mov dx,offset m11j2
  2730.               call pos
  2731. j307:         mov dx,offset m11j3
  2732.               call pos
  2733. j308:         mov dx,offset m11j4
  2734.               call pos
  2735. j309:         mov dx,offset m11j5
  2736.               call pos
  2737. j310:         mov dx,offset m11j6
  2738.               call pos
  2739. j311:         mov dx,offset m11j7
  2740.               call pos
  2741. j312:         mov dx,offset m11j8
  2742.               call pos
  2743. j313:         mov dx,offset m11j9
  2744.               call pos
  2745. j314:         mov dx,offset m11j10
  2746.               call pos
  2747. j315:         mov dx,offset m11j11
  2748.               call pos
  2749. j316:         mov dx,offset m11j12
  2750.               call pos
  2751. j317:         mov dx,offset m11j13
  2752.               call pos
  2753. j318:         mov dx,offset m11j14
  2754.               call pos
  2755. j319:         mov dx,offset m11j15
  2756.               call pos
  2757. j320:         mov dx,offset m11j16
  2758.               call pos
  2759. j321:         mov dx,offset m11j17
  2760.               call pos
  2761. j322:         mov dx,offset m11j18
  2762.               call pos
  2763. j323:         mov dx,offset m11j19
  2764.               call pos
  2765. j324:         mov dx,offset m11j20
  2766.               call pos
  2767. j325:         mov dx,offset m11j21
  2768.               call pos
  2769. j326:         mov dx,offset m11j22
  2770.               call pos
  2771. j327:         mov dx,offset m11j23
  2772.               call pos
  2773. j328:         mov dx,offset m11j24
  2774.               call pos
  2775. j329:         mov dx,offset m11j25
  2776.               call pos
  2777. j330:         mov dx,offset m11j26
  2778.               call pos
  2779. j331:         mov dx,offset m11j27
  2780.               call pos
  2781. j332:         mov dx,offset m11j28
  2782.               call pos
  2783. j333:         mov dx,offset m11j29
  2784.               call pos
  2785. j334:         mov dx,offset m11j30
  2786.               call pos
  2787. j335:         mov dx,offset m12j1
  2788.               call pos
  2789. j336:         mov dx,offset m12j2
  2790.               call pos
  2791. j337:         mov dx,offset m12j3
  2792.               call pos
  2793. j338:         mov dx,offset m12j4
  2794.               call pos
  2795. j339:         mov dx,offset m12j5
  2796.               call pos
  2797. j340:         mov dx,offset m12j6
  2798.               call pos
  2799. j341:         mov dx,offset m12j7
  2800.               call pos
  2801. j342:         mov dx,offset m12j8
  2802.               call pos
  2803. j343:         mov dx,offset m12j9
  2804.               call pos
  2805. j344:         mov dx,offset m12j10
  2806.               call pos
  2807. j345:         mov dx,offset m12j11
  2808.               call pos
  2809. j346:         mov dx,offset m12j12
  2810.               call pos
  2811. j347:         mov dx,offset m12j13
  2812.               call pos
  2813. j348:         mov dx,offset m12j14
  2814.               call pos
  2815. j349:         mov dx,offset m12j15
  2816.               call pos
  2817. j350:         mov dx,offset m12j16
  2818.               call pos
  2819. j351:         mov dx,offset m12j17
  2820.               call pos
  2821. j352:         mov dx,offset m12j18
  2822.               call pos
  2823. j353:         mov dx,offset m12j19
  2824.               call pos
  2825. j354:         mov dx,offset m12j20
  2826.               call pos
  2827. j355:         mov dx,offset m12j21
  2828.               call pos
  2829. j356:         mov dx,offset m12j22
  2830.               call pos
  2831. j357:         mov dx,offset m12j23
  2832.               call pos
  2833. j358:         mov dx,offset m12j24
  2834.               call pos
  2835. j359:         mov dx,offset m12j25
  2836.               call pos
  2837. j360:         mov dx,offset m12j26
  2838.               call pos
  2839. j361:         mov dx,offset m12j27
  2840.               call pos
  2841. j362:         mov dx,offset m12j28
  2842.               call pos
  2843. j363:         mov dx,offset m12j29
  2844.               call pos
  2845. j364:         mov dx,offset m12j30
  2846.               call pos
  2847. j365:         mov dx,offset m12j31
  2848.               call pos
  2849.  
  2850. ; Fin du programme
  2851.  
  2852. fin:          mov ah,3
  2853.               mov al,63
  2854.               call gotoxy
  2855.               mov dx,offset copyright
  2856.               call aff
  2857.               mov ah,5
  2858.               mov al,0
  2859.               call gotoxy
  2860.               int 20h                      ; Retour au DOS.
  2861.  
  2862. almanach      ends
  2863.               end start
  2864.